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ABSTRACT 

V, 

A  procedure  for  digitizing  data  on  a  Vax  11/780  computer 
using  VAX  FORTRAN  programs  and  VMS  system  service  routines  was 
developed.  Brief  descriptions  and  source  listings  of  the 
programs  are  enclosed.  In  addition,  several  auxiliary  programs 
used  for  verifying  the  procedure  are  also  enclosed. 
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INTRODUCTION 


Digitizing  analog  tapes  is  a  necessary  part  of  many  data 
analysis  projects.  A  FORTRAN  program  for  digitizing  data  on  a 
Vax  11/780  computer  using  VMS  system  service  routines  is 
described  as  well  as  several  additional  verification  programs. 


HARDWARE 


For  each  experiment  the  hardware  setup  will  vary  slightly. 
Appendix  A  shows  the  hardware  our  experiment  used.  This  included 
a  Vax  11/780  computer  with  one  LPA11-K,  12  bit,  16  channel  analog 
to  digital  (A/D)  converter  in  dedicated  mode.  The  digital  tape 
drive  was  a  TU78,  9  track,  6250  bpi  drive .-(Slower  speed  tape 
drives  were  not  able  to  keep  up  with  our  particular  application.) 

The  A/D  converter  was  triggered  by  an  external  Schmidt 
trigger.  For  this  particular  application,  we  sampled  the  data  at 
2.5  kHz.  If  the  internal  clock  is  desired,  the  source  code  would 
have  to  be  altered. 

A  final  digitized  data  sample  is  a  16  bit  word  (1*2  data 
type),  accurate  to  12  bits  and  ranging  from  -5  to  +5  volts.  Real 
data  are  scaled  by 

REAL  DAT A= FLOAT (1*2  DATA)/409.5  -  5. 


PROCESSING  PROCEDURE 


For  the  application  described,  24  channels  of  analog  data 
were  digitized.  Since  the  computer  had  one  16  channel  A/D,  it 
was  necessary  to  process  the  data  in  two  passes  of  14  channels 
each.  The  second  pass  repeated  4  channels;  these  were  used  for 
alignment.  Disk/tape  constraints  forced  each  run  to  be  digitized 
in  four  parts,  an  end  alignment  was  necessary.  The  method  used 
for  alignment  is  described  in  TM  NO.  861118,  "RECAT  -  REDUNDANT 
CHANNEL  ALIGNMENT  TECHNIQUE",  BY  W.  HAUCK .  The  procedure  for 
digitizing  one  tape  follows. 

A.  Log  onto  the  computer. 

B.  Mount  the  analog  tape  and  check  all  hardware 
settings . 

C.  Mount  the  digital  tape. 

D.  ALLOCATE  MFAO :  (HIGH  SPEED  TAPE  DRIVE) 


E.  Activate  A2D.COM 

1.  Initialize  the  magnetic  tape 

2.  Assign  the  appropriate  output  data  disk 

3.  Enter  the  digitizing  setup  via  "ENTERHEAD" 
program 

4.  Assign  and  mount  the  magnetic  tape 

5.  Alter  the  user  priority  to  28  (VERY  HIGH!!) 

6.  Perform  the  digitizing  task  via  "A2D"  program 

7.  Set  the  priority  back  to  4  (NORMAL) 

8.  Copy  the  recat  files  for  alignment  (both  passes 
and  ends)  from  tape  to  disk  via  "SAVRECAT"  program 

9.  Copy  the  quick  check  files  to  disk  via  "READDT" 
progam 

10.  Dismount  the  magtape  and  deallocate  the  drive 

11.  Label  the  tape  - 

I  TAPE  ID  RUN  _  PASS  _  I 

I  9  TRK  START  _ : _ : _  I 

I  6250  STOP  _ : _ : _  I 

I  FOR  BUFFERS  I 

I _ I 

12.  Run  the  quick  check  plot  program,  "QUPL"  to  verify 
the  data  looks  okay. 

F.  Repeat  B-E  as  needed 

G.  Logoff  when  done 


This  procedure  is  repeated  for  one  run  worth  of  data  (4 
parts,  2  passes  of  each).  The  "RECAT"  program  will  calculate  the 
the  alignment  values.  The  data  is  then  downsampled  and  or 
filtered  and  later  merged,  depending  on  your  desires. 


PROGRAM  DESCRIPTIONS 


A.  ENTERHEAD. FOR  -  The  operator  enters  all  identification 
information  when  this  program  is  run.  That  information  is  stored 
in  a  data  file  for  retrieval  by  the  actual  digitizing  program. 
This  method  of  entering  was  selected  because  the  probability  of 
repeating  a  digitizing  session  is  very  high. 

Routines  called  are  LISTHEAD. FOR. 


B.  A2D.FOR  -  Performs  the  digitizing  task.  The  identification 
information  entered  by  ENTERHEAD  is  written  to  the  first  record 
of  each  tape.  It  is  followed  by  records  containing  the  digitized 
data.  The  digitized  records  are  14,000  bytes  long  consisting  of 
7000  samples.  (500  samples/channe 1  x  14  channels)  Within  each 
record  the  order  of  the  samples  is:  sample  1,  chan  1-14,  sample 
2,  chan  1-14,  ...  sample  500,  chan  1-14.  The  final  record  is 
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followed  by  two  end  of  file  markers  to  signify  end  of  tape. 


The  record  size  chosen  was  based  on  the  sample  rate  and  the 
number  of  channels.  Users  should  establish  a  reasonable  record 
size  for  writing  to  tape. 

Routines  called  are  GETHEAD  and  LISTHEAD. 

NOTE:  When  digitizing,  the  user  must  have  a  real  time  priority; 
28  or  30  seems  to  be  sufficient.  Ask  the  system  manager  for  the 
ALTPRI  privilege. 


C.  SAVRECAT.FOR  -  Reads  a  tape  made  by  A2D  and  extracts  the 
channels  chosen  for  alignment.  The  first  500  records  and  the 
last  50  records  are  written  to  disk.  RECAT,  as  described  in 
TM  NO.  861118  uses  these  files  for  alignment  procedures. 

Routines  called  are  LISTHEAD. 


D.  READDT . FOR  -  Reads  a  digitized  tape  and  separates  all 
channels  into  separate  files.  Each  record  contains  500  samples 
of  A/D  channels  1-14. 

Routines  called  are  LISTHEAD. 


E.  QUPL.FOR  -  Plots  the  first  4  records  of  digitized  tape,  1 
channel/plot  and  4  channels/page. 

Routines  called  are  PLCHAN  and  plotting  routines  from  the  library 
QPLOT  or  GRAFX . 


F.  DOWNSAMP.FOR  -  Reads  a  digitized  tape,  downsamples  it, 
changes  the  record  sizes  if  desired  and  saves  it  on  disk. 

Alignment  procedures,  appending,  throwing  away  and  saving  data 
are  completed.  The  disk  file  consists  of  one  header  identification 
record  followed  by  records  containing  1024  words  from  A/D  chan  1, 
1024  words  from  A/D  chan  2,  ...  1024  words  from  A/D  chan  14. 

Routines  called  are  LISTHEAD. 


G.  MERGEMT.FOR  -  Reads  the  disk  files  created  by  "DOWNSAMP"  for 
one  run,  passes  1  and  2  and  merges  each  record.  The  final  tape 
contains  all  24  analog  channels,  redundant  channels  are  discarded. 
The  final  tape  format  is: 
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One  header  identification  record  14000  bytes  long 
Records  (49152  bytes)  of  1024  samples  from  channel  1 

1024  samples  from  channel  2 


1024  samples  from  channel  24 

Routines  called  are  LISTHEAD. 


H.  READMT . FOR  -  Reads  a  merged  tape  and  writes  the  data  out  to 
disk,  one  channel  per  file.  Records  consist  of  1024  samples 
each. 

Routines  called  are  ASSMT ,  RBLOCKMT ,  and  LISTHEAD. 
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LISTING  OF  A2D.COM 


B-l/B-2 
Reverse  B 1  a 


_DRBO: [MACIE.TM] A2D.COM; 30 

$!  A2D.COM  COMMAND  STREAM  FOR  DIGITIZING  14  A/D  CHANNELS. 

$! - 

$!  SET  VERIFY 
$  IF  PI  . EQS.  ""  THEN  - 

$  INQUIRE  PI  "DO  YOU  WANT  TO  INITIALIZE  THE  TAPE?  (Y/N)" 

$  IF  F$STRING( PI )  .EQS.  "N"  THEN  GOTO  SETDISK 

$ ! 

$  IF  P2  .EQS.  ""  THEN 

$  INQUIRE  P2  "ENTER  TAPE  LABEL?  (R _ P_)" 

$  ALLOCATE  MFAO : 

$  INITIALIZE/DENSITY=6250  MFAO:  ’P2' 

$  ! 

$  SETDISK: 

$  IF  P3  .EQS.  ""  THEN  INQUIRE  P3  "IS  DATA  GOING  TO  DISK  0  OR  1?" 

$  IF  F$STRING(P3)  .EQS.  "0"  THEN  SET  DEF  DRBO : [ A2D . DATA] 

$  IF  F$STRING(P3)  .EQS.  "1"  THEN  SET  DEF  DRB1 : [ A2D. DATA] 

$ ! 

$  SETUP: 

$  IF  P4  .EQS.  ""  THEN  - 

$  INQUIRE  P4  "HAVE  YOU  ENTERED  THE  DIGITIZING  SETUP?  (Y/N)” 

$  IF  F$STRING(P4)  .EQS.  "Y"  THEN  GOTO  MTAPE 
$  ASSIGN/USER  SYS$COMMAND  SYS$ INPUT 

$  RUN  DRBO: [A2D.DIGIT]ENTERHEAD  ! ENTER  HEADER  INFORMATION 

$ ! 

$  MTAPE: 

$  IF  P5  .EQS.  ""  THEN  - 

$  INQUIRE  P5  "DID  YOU  ASSIGN  AND  MOUNT  THE  MAGTAPE?  (Y/N)" 

$  IF  F$STRING(P5)  .EQS.  "Y"  THEN  GOTO  DIGIT 
$  ASSIGN  MFAO:  MAG_TAPE 
$  MOUNT/FOR/DENS=6250  MFAO: 

$ ! 

$  DIGIT: 

$  SET  PROC/PRI V= PS WAPM  !SET  UP  PRIVILEGES/PRIORITY 

$  SET  PROC/PRI V=ALTPR I 

$  SET  PROC/PRIO=30 

$  ASSIGN/USER  SYS5C0MMAND  SYS$ INPUT 

$  RUN  DRBO : [A2D. DIGIT] A2D  'PERFORM  DIGITIZING 

$  SET  PROC/PRI 0=4  'SET  PRIORITY  BACK  DOWN 

$ ! 

$  IF  P6  .EQS.  ""  THEN  - 

$  INQUIRE  P6  "DO  YOU  WANT  TO  COPY  THE  RECAT  FILES  TO  DISK?  (Y/N)" 

$  IF  F$STRING(P6)  .EQS.  "N"  THEN  GOTO  QUPL 
$  ASSIGN/USER  SYS$COMMAND  SYS$ INPUT 

$  RUN  DRBO : t A2D. DIGIT ]SAVRECAT  ! COPY  THE  RECAT  FILES 

$! 

$  QUPL: 

$  INQUIRE  P7  "DO  YOU  WANT  TO  COPY  THE  QUICK  CHECK  FILES  TO  DISK?  (Y/N 
$  IF  F$STRING(P7)  .EQS.  "N"  THEN  GOTO  MTDISM 
$  SET  DEF  DRB1 : [A2D.QUPL] 

$  ASSIGN/USER  SYSSCOMMAND  SYS$ INPUT 

$  RUN  DRBO :[A2D. DIGIT] READT 

$  WRITE  SYSSOUTPUT  "YOU  NEED  TO  RUN  DRBO : QUPL . COM  TO  MAKE  PLOTS" 

$ ! 

$  MTDISM:  ! DISMOUNT  THE  TAPE 

$  IF  P8  .EQS.  ""  THEN  - 

$  INQUIRE  P8  "DO  YOU  WANT  TO  DISMOUNT  THE  TAPE?  (Y/N)" 

$  IF  F$STRING(P8)  .EQS.  "Y"  THEN  DISMOUNT  MFAO: 

$  ! 
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_DRB0: [MACIE.TM] A2D.COM; 30 
$  DONE: 

$  WRITE  SYS$OUTPUT  "DIGITIZING  PROCEDURE  COMPLETE" 
$  EXIT 
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DRBO : [ MAC I E . TM ] ENTERHEAD . FOR ; 1 3 


ENTERHEAD . FOR 

HAS  THE  OPERATOR  ENTER 

THE  HEADER 

INFORMATION 

AND  SAVE  IT  IN 

A  DATA  FILE. 

HEADB( 1-2) 

HEADI 2 ( 1 ) 

ANALOG 

TAPE  NUMBER 

HEADB ( 3 ) 

HEADI 2 ( 2 ) 

PASS  NUMBER  ( 1 , 

2  OR  3) 

HEADB ( 4 ) 

n 

NUMBER 

OF  CHANNELS 

14  OR  24 

HEADB ( 5 ) 

HEAD I 2 ( 3 ) 

DIGITIZING  MONTH 

HEADB ( 6 ) 

If 

DIGITIZING  DAY 

HEADB ( 7 ) 

HEADI 2 ( 4 ) 

DIGITIZING  YEAR 

HEADB ( 8 ) 

If 

EXPERIMENT  TIME 

CODE  START 

HOUR 

HEADB(9) 

HEAD I 2 ( 5 ) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

HEADB ( 10) 

If 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

HEADB ( 11-30) 

HEADI 2 (6-1 5) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

HEADB (31) 

HEADI 2 (16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

HEADB (32) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

HEADB (33) 

HEADI 2 ( 17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

HEADB (34) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

HEADB (35) 

HEADI 2 ( 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

HEADB ( 36) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

HEADB (37) 

HEADI 2 ( 19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

HEADB (38) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

HEADB (39) 

HEAD I 2 ( 20 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

HEADB (40) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

10 

HEADB (41) 

HEADI 2(21 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

HEADB (42) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

HEADB (43) 

HEADI 2 (22) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  3 

HEADB (44) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

HEADB (45) 

HEADI 2 (23) 

ANALOG 

CHANNEL 

IN 

POSITION 

15 

HEADB (46) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

HEADB (47) 

HEADI 2 (24) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  7 

HEADB (48) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

HEADB (49) 

HEADI 2(25) 

ANALOG 

CHANNEL 

IN 

POSITION 

19 

HEADB (50) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

HEADB (51 ) 

HEADI 2 (26) 

ANALOG 

CHANNEL 

IN 

POSITION 

21 

HEADB (52) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

HEADB ( 53 ) 

HEADI 2(27) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

HEADB ( 54) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

HEADB (55) 

HEADI 2 ( 28 ) 

RUN  IDENTIFICATION  NUMBER 

HEADB (56) 

If 

It 

HEADB( 57-60) 

HEADFP ( 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC )  J 

PARAMETER  NCHN=14  ! NUMBER  OF  A/D  CHANNELS 

PARAMETER  NBYTES=NCHN*500*2  '.NUMBER  OF  BYTES  PER  RECORD 

PARAMETER  Nl2  =  NBYTES/2  '.NUMBER  OF  1*2  WORDS 

PARAMETER  NI4=NBYTES/4  INUMBER  OF  1*4  WORDS  OR  FLOATING  PT 

CHARACTER*!  ANS 

BYTE  HEADB ( NBYTES ) , ITITLE(20) , F I LNAM( 1 1 ) 

INTEGER* 2  HEADI2(NI2) 

INTEGER*4  HEADI4(NI4) 

REAL  HEADFP{NI4 ) 

EQUIVALENCE  ( HEADB ( 1 1 ), IT ITLE ) 

EQUIVALENCE  ( HEADB , HEAD  I  2 , HEAD  I  4 , HEADFP ) 

DATA  HEADI 4/ NI 4  *0/ 
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_DRB0 : [ MAC I E . TM ] ENTERHEAD . FOR ; 1 3 
C 

C - ASK  THE  OPERATOR  FOR  ALL  HEADER  INFO 

C 

100  CONTINUE 

PRINT  1 

1  FORMAT (X/X, 'ENTER  ANALOG  TAPE  NUMBER:  ’,$) 

READ  *,  HEADI 2 { 1 ) 

C 

PRINT  13 

13  FORMAT (X/X, 'ENTER  RUN  IDENTIFICATION  NUMBER:  ',$) 

READ  *,  HEADI 2 (28) 

C 

PRINT  2 

2  FORMAT (X/X, 'ENTER  DATA  TAPE  PASS  NUMBER  (1  OR  2)?  ',$) 

READ  *,  HEADB ( 3 ) 

C 

C  PRINT  1 1 

C11  FORMAT (X/X, 'ENTER  NUMBER  OF  CHANNELS/HYDROPHONES  :  ',$) 

C  READ  *,  HEADB ( 4 ) 

HEADB ( 4 ) = 1 4 
NCHAN=HEADB<4) 

C 

PRINT  3 

3  FORMAT (X/X, 'ENTER  DIGITIZING  DATE: 

READ  *,  HEADB ( 5 ) 

PRINT  4 

4  FORMAT (X/X,' 

READ  *,  HEADB ( 6 ) 

PRINT  5 

5  FORMAT ( X/X , ' 

READ  *,  HEADB ( 7 ) 

C 

PRINT  6 

6  FORMAT ( X/X ,' ENTER  START  TIME  CODE: 

READ  *,  HEADB ( 8 ) 

PRINT  7 

7  FORMAT (X/X,' 

READ  *,  HEADB ( 9 ) 

PRINT  8 

8  FORMAT (X/X,’ 

READ  *,  HEADB ( 1 0 ) 

C 

DO  1=1 1 , 30 
HEADB ( I ) = '  ' 

END  DO 
PRINT  9 

9  FORMAT ( X/X, ' ENTER  20  CHARACTER  EVENT  DESCRIPTION:  ',$) 

READ  10,  NC, ( ITITLE( I ) , 1=1 , NC > 

10  FORMAT(Q, 20A1 ) 

DO  I = 1 , NC 

HEADB ( 10+1 )«ITITLE( I ) 

END  DO 
C 

DO  1=1, NCHAN 
PRINT  12,  I 

12  FORMAT ( X/X, ' ENTER  ANALOG  CHANNEL  FOR  A/D  CHANNEL  ',12,'  :  ',$> 

READ  *,  HEADB ( 1+30) 

END  DO 


MONTH  ' , $ ) 
DAY  ' , $ ) 

YEAR  ' , $ ) 

HOUR  ’ , $ ) 
MINUTES  ' ,$) 
SECONDS  ' , $ ) 


nnn 
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_DRB0 : [MACIE . TM ] ENTERHEAD. FOR; 1 3 
C 

HEADFP  (  1  5  )  =  1  ./2500./4.  .'SAMPLE  RATE  2.5  KHZ  AT  1/4  SPEED 

SAVE  THE  INPUTS  IN  A  DATA  FILE 

ENCODE ( 10, 1 4 , F I LNAM )  HEADI 2 ( 28 ) , HEADB ( 3 ) 

1  4  FORMAT  ('R'JO/PMI/H.  DAT  '  ) 

FI LNAM ( 11 )=0 
PRINT  16 

PRINT  15,  (FILNAM(I) , 1*1  ,10) 

15  FORMAT (X, 'DATA  WILL  BE  SAVED  IN  FILE:  ’,10A1) 

PRINT  16 

CALL  L I STHEAD ( HEADB , HEAD 1 2 , HEAD 14) 

PRINT  16 

16  FORMAT ( X , 8  0 ( ' - ' ) ) 

PRINT  17 

17  FORMAT (X/X, 'DOES  THIS  DATA  LOOK  CORRECT?  (Y/N)  ’,$) 

READ  18,  ANS 

18  FORMAT (A1) 

I F ( ANS . EQ . 'N' )  GO  TO  100 

OPEN ( UNIT* 1 0 , NAME=FI LNAM, STATUS* ' NEW ' , FORM* ’ UNFORMATTED ' ) 
WRITE (10)  HEADB 
CLOSE ( UN I T  = 1 0 ) 

C 

CALL  EXIT 
END 


C  -  5 


TM  No.  861214  m  U 

_DRB0 : [MACIE.TMlLISTHEAD. FOR;  1  1  .  1 


C  LISTHEAD. FOR  LISTS  OUT  THE  HEADER  INFORMATION  FOR  A 


c 

r _ 

SPECIFIED  TAPE, 

*• 

v» 

_ 

c 

HEADB ( 1-2) 

HEAD 12(1 ) 

analog 

TAPE  NUMBER 

c 

HEADB ( 3 ) 

HEAD I 2 ( 2 ) 

PASS  NUMBER  ( 1 , 

2  OR  3) 

c 

HEADB ( 4 ) 

n 

NUMBER 

OF  CHANNELS 

14  OR  24 

c 

HEADB ( 5 ) 

HEADI 2 ( 3 ) 

-(AK3STIZING  MONTH 

c 

HEADB ( 6 ) 

II 

IBSJTIZING  DAY 

c 

HEADB { 7 ) 

HEAD 12(4) 

lUNft  T I Z I NG  YEAR 

c 

HEADB ( 8 ) 

ft 

EXPERIMENT  TIME 

CODE  START 

HOUR 

c 

HEADB ( 9 ) 

HEAD 12(5) 

E3$PERIMENT  TIME 

CODE  START 

MINUTE 

c 

HEADB (10) 

ft 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

c 

HEADB ( 11-30) 

HEADI 2 (6-15) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

c 

HEADB ( 3 1 ) 

HEAD 12(16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

c 

HEADB (32) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

c 

HEADB (33) 

HEADI 2 ( 17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

c 

HEADB (34) 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

c 

HEADB (35) 

HEADI 2 ( 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

c 

HEADB (36) 

n 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

c 

HEADB (37) 

HEADI 2 (19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

c 

HEADB (38) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

c 

HEADB (39) 

HEADI 2 (20) 

■Analog 

CHANNEL 

IN 

POSITION 

9 

c 

HEADB (40) 

»» 

ANALOG 

CHANNEL 

IN 

POSITION 

10 

c 

HEADB ( 4 1 ) 

HEADI 2 { 2 1  ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 1 

c 

HEADB (42) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

c 

HEADB (43) 

HEADI 2 (22) 

ANALOG 

CHANNEL 

IN 

POSITION 

13 

c 

HEADB (44) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

c 

HEADB (45) 

HEADI 2 ( 23 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

15 

c 

HEADB (46) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

c 

HEADB (47) 

HEADI 2 (24) 

ANALOG 

CHANNEL 

IN 

POSITION 

17 

c 

HEADB (48) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

c 

HEADB (49) 

HEADI 2 ( 25 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

19 

c 

HEADB (50) 

•t 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

c 

HEADB ( 5 1 ) 

HEADI 2 (26) 

ANALOG 

CHANNEL 

IN 

POSITION 

21 

c 

HEADB (52) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

c 

HEADB (53) 

HEADI 2 (27) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

c 

HEADB (54) 

ff 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

c 

HEADB (55) 

HEADI 2 (28) 

RUN  IDENTIFICATION  NUMBER 

c 

HEADB (56) 

ft 

ft 

c 

H£ADB( 57-60) 

HEADFP (15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC ) 

C 

r - 

SUBROUTINE  LISTHEAD{ HE ADB, HEADI 2 , HEADI4 ) 


BYTE  HEADB ( 1 ) 

INTEGER* 2  HEADI2(1) 

INTEGER*4  HEADI4(1) 

PRINT  OUT  THE  ALL  HEADER  INFO 

PRINT  1 ,  ( HEADB ( I ) , 1=1 1 , 30) 

FORMAT(X, '  ***  EVENT  DESCRIPTION:  ' ,20A1,'  ***’) 
PRINT  2,  HEADI 2  (  1  ) 

FORMAT! X/X,'  ANALOG  TAPE  NUMBER:  ' f4X,I4) 


PRINT  3,  HEADI 2(28) 


•  <41. 


n  >**■ 


TM  No.  861214 


_DRBO : [ MAC I E . TM ] L I STHEAD . FOR ,* 1 1 

3  FORMAT ( X , '  RUN  IDENTIFICATION  NUMBER:  ' ,6X,I2) 

C 

PRINT  4,  HEADB( 3 ) 

FORMAT (X,'  PASS  NUMBER:  ' ,7X,I1) 


5 
C 

6 
C 

C 

7 


8 

C 


PRINT  5,  HEADB ( 8 ) , HEADB ( 9 ) , HEADB (10) 

FORMAT ( X , '  START  TIME  CODE:  ' , 1 2 , ' : ' , 1 2 , ' :  ,12) 


PRINT  6,  HEADB ( 5 ) , HEADB (6) , HEADB { 7 ) 
FORMAT (X,'  DATE: 


'  ,12, '/’ ,12, V 12) 


NCHAN=HEADB ( 4 ) 


PRINT  7 

FORMAT (X/X, '  POSITION  :  CHANNEL  POSITION  :  CHANNEL  ^  , 

X/x  •  -  - ') 

NH AL  F = NCHAN / 2 
DO  1=1 , NHALF 
K= I +NHALF 

PRINT  8,  I , HEADB ( I  +  3 0 ) , K , HEADB ( K+  3  0 ) 

FORMAT ( X , 4X , 1 2 , 3X , '  :  ' , 3X , 1 2 , 2X, 5X , 3X , 1 2 , 3X , ’  :  ’,3X,I2) 

END  DO 


RETURN 

END 


C  -  7 


1%! 


TM  No.  861214 


APPENDIX  D 


LISTINGS  OF 
A2D.FOR 
GETHEAD. FOR 
LISTHEAD. FOR 


D-l/D-2 
Reverse  Blank 


nnnnnoonn 


DRBO : [ MAC I E . TM ] A2D . FOR ; 2 


TM  No.  861214 


A2D.FOR  ANALOG  TO  DIGITAL  DIGITIZING  PROGRAM 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 


c 


c 

c 

c 

c 


c 

c 


THIS  PROGRAM  IS  CALLED  VIA  THE  A2D  COMMAND  ROUTINE. 

EACH  TAPE  TO  BE  DIGITIZED  WILL  REQUIRE  TWO  PASSES  AT  1/4  SPEED. 
THE  FIRST  PASS  WILL  DIGITIZE  14  DATA  CHANNELS  1-12,  AND  14-15 
THE  SECOND  PASS  WILL  DIGITIZE  14  DATA  CHANNELS,  16-25  AND 
REPEAT  CHANNELS  2,  4,  10  AND  14.  THE  REPEATS  WILL  BE  USED  FOR 
TAPE  ALIGNMENT.  MAKE  SURE  THE  HARDWARE  IS  SET  UP  ACCORDINGLY. 

TO  DIGITIZE: 

1 )  LOG  ON  TO  VAX 

2)  SET  UP  THE  DIGITIZING  HARDWARE 

3)  MOUNT  A  TAPE  WITH  A  WRITE  RING  ON  MFAO : 

4)  EXECUTE  THE  A2D.COM  COMMAND  FILE,  THIS  WILL: 

A.  INITIALIZE  THE  TAPE 

B.  SET  THE  OUTPUT  DIRECTORY/DISK 

C.  ASK  FOR  HEADER  INFORMATION 

D.  ASSIGN  AND  MOUNT  THE  TAPE 

E.  SETUP  THE  HIGH  SPEED  TAPE  DRIVE 

F.  ASSIGN  THE  NECESSARY  PRIVILEGES 

G.  UP  THE  PROCESS  PRIORITY  TO  28 

H.  EXECUTE  THE  DIGITIZING  PROGRAM,  ***"A2D"*** 

I.  LOWER  THE  PROCESS  PRIORITY  BACK  TO  4 

J.  COPY  THE  RECAT  DATA  TO  DISK 

K.  COPY  THE  QUICK  CHECK  PLOT  DATA  TO  DISK 

L.  DISMOUNT  THE  TAPE 

5)  CHECK  THE  QUICK  CHECK  PLOTS 

6)  REPEAT  2-5 


PARAMETER  NADC=14  ! NUMBER  OF  A/D  CHANNELS  USED 

PARAMETER  NBSIZE=500  ! NUMBER  OF  WORDS  IN  ONE  BUFFER/CHANNEL 

PARAMETER  NRECS I ZE=NADC*NBS I ZE*  2 

BYTE  HEADB ( NRECS I ZE ) 

INTEGER* 2  HEADI 2 ( NRECS I ZE/2 ) 

INTEGER*2  BUFFER ( NADC , NBS I ZE , 3 ) , IOSB(4) , IOSBKT(4) 

INTEGER* 4  HEAD  1 4 ( NRECS I ZE/4 ) 

INTEGER*4  IBUF(50) , DWELL , SYS$ADJWSL , SYS$LCKPAG , INADR( 2 ) , I RETADR ( 2 ) 

1 ,SYS$QIOW, IOSB4 ( 2 ) , WRINORET , WEOFNORET , RUNNO 
DIMENSION  HEADFP (NRECS I ZE/4 ) 

EQU I VALENCE  ( HEADB , HEAD 1 2 , HEAD  1 4 , HEADFP ) 

CHARACTER* 1  I GO 

COMMON  /COMM1 /  IBUF  ! COMMONS  FOR  LONGWORD  ALLIGNMENT 

COMMON  /COMM2/  BUFFER 

EQUIVALENCE  ( IOSB, IBUF) , ( IOSBMT, IOSB4 ) 

SET  UP  I/O  CODES  FOR  NO  RETRY  DUE  TO  REAL-TIME  PROCESSING 

EXTERNAL  IO$_WRITELBLK , IO$_REWIND, IO$_WRITEOF 
EXTERNAL  IO$_SK I PF I LE , IO$M_ I NHRETRY 

WR I  NORET  =  °6LOC  (  IO$_WR  ITELBLK  )  ♦%LOC  (  IO$M_INH  RETRY)  !  '8020'X 

WEOFNORET  =  %LOC ( IO$_WR I TEOF ) + %LOC  <  1 0$M_ I NHRETRY )  !  ’ 8  0  2  8 ’ X 

GET  PROGRAM  SAMPLING  SPECIFICATIONS 

D  -  3 


non  -*  n  n  n  non  non 
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ORBO : [MACIE.TM] A2D. FOR; 2 


fr  '.-v  ;ti\  7 


'•  r» rt  T.rn » y* 

! 


c 


c 


PRINT  * ,  ’HOW  MANY 
READ  *,  NBUF 
NBUF*450  ! 

ICHN*0  ! 

NCHN*NADC  ! 

LBUF*NADC*NBSIZE  ! 
LBUF2*LBUF*2  ! 

IPRSET*-1  ! 

MODE* 51 2  ! 

I RATE*- 1  ! 

DWELL* 1  ! 

I EFN=0  ! 

LDELAY*0  ! 

I TYPE* 2  ! 

NUM*0  ! 

INC*  1  ! 


BUFFERS  DO  YOU  WANT  TO  FILL?’ 

NUMBER  OF  BUFFERS  TO  FILL 

START  WITH  CHANNEL  0 

NUMBER  OF  CHANNELS 

SIZE  OF  EACH  BUFFER  IN  WORDS  (1*2) 

SIZE  OF  EACH  BUFFER  IN  BYTES 

DOES  NOT  MATTER,  NOT  USED  (-1  TO  -32768) 

SAMPLING  OPTION  -  EXTERNAL  SCHMIDT  TRIGGER 

CLOCK  RATE  DIRECT  COUPLED  SCHMIDT  TRIGGER  1 

CLOCK  OVERFLOWS  BETWEEN  SAMPLES 

DEFAULT  TO  EVENT  FLAG  22 

IGNORED  IN  DEDICATED  MODE 

DEDICATED  A/D  MODE 

FOR  LOGICAL  NAME  LPA11$0 

CHANNEL  INCREMENT 


GET  THE  HEADER  INFORMATION  FOR  THIS  TAPE 

PRINT  *,  ’ENTER  RUN  IDENTIFICATION  NUMBER’ 

READ  *,  RUNNO 

PRINT  *,  ’ENTER  PASS  NUMBER  (1  OR  2)’ 

READ  *,  I PASS 

CALL  GETHEAD (RUNNO, I  PASS, LBUF2.HEADB) 

CALL  L I STHEAD ( HEADB , HEAD I  2 , HEAD 1 4 ) 

ASSIGN  THE  TAPE  TO  LOGICAL  NAME  MAG_TAPE  AND  REWIND 

CALL  SYS$ASSIGN ( ’ MAG_TAPE ’ , I CHAN, , ) 

I RETCODE=SYS$Q I OW ( ,%VAL( ICHAN) , IO$_REWIND, IOSBMT, ,,,,,,,) 
I F ( I OSBMT ( 1 ) . EQ . ’ 1 A4 ’ X )  STOP  ’TAPE  DRIVE  IS  OFFLINE’ 

IF( .NOT. IRETCODE)  THEN 

WRITE( 6,150)  7, ( IOSBMT( I ) , 1=1 ,4) 

STOP  ’ MAG_TAPE  REWIND  ERROR’ 

END  IF 


SKIP  FILES  IF  REQUESTED 

PRINT  *,  ’HOW  MANY  FILES  DO  YOU  WANT  TO  SKIP?’ 

READ  *,  NSKIP 
IF(NSKIP.LT.O)  THEN 

PRINT  *,  ’YOU  MUST  ONLY  GO  IN  THE  FORWARD  DIRECTION’ 

PRINT  *,  ’THE  NUMBER  OF  FILES  MUST  BE  POSITIVE’ 

GOTO  1 
END  IF 

I RETCODE=SYS$Q I OW ( ,%VAL( ICHAN) , IO$_SK I PF I LE , IOSB, , ,%VAL (NSKIP) ,,,,,) 
IF  ( .NOT. IRETCODE)  STOP  ’SKIP  FILE  ERROR’ 

IF( IOSB(2) .NE. NSKIP)  THEN 

PRINT  *, ’PROBLEM  SKIPPING  ’, NSKIP,  ’  FILES' 

PRINT  *,  IOSB 

STOP  'SKIPPING  FILE  ERROR' 

END  IF 

DUMP  THE  HEADER  TO  TAPE 

NREC= 1  ! RECORD  1  IS  HEADER 


D-4 


i  -•  - - *  — 


n>«i  m 
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_DRB0 : [MACIE.TM] A2D. FOR; 2 

I RETCODE* SYS $Q I OW ( ,%VAL( I CHAN) , %VAL ( WRINORET ) , IOSBMT 
1 , , , HEADB , %VAL ( LBUF2 ),,,,) 

C  WRITE( 6 ,150)  7, { IOSBMT( I ) , 1=1 ,4 ) 

IF( IOSBMT ( 1 ) .EQ. ’ 1A4  *X)  STOP  'TAPE  DRIVE  IS  OFFLINE' 

I F( .NOT. IRETCODE)  STOP  'ERROR  MAGTAPE  DUMPING  HEADER' 

C 

C - ADJUST  WORKING  SET  SIZE  AND  LOCK  BUFFER  AREA  PAGES  INTO  MEMORY 

C 

IRETCODE=SYS$ADJWSL ( %VAL (200) , ILIMIT)  1ADJUST  PAGE  COUNT 

I F( IRETCODE. NE. 1 )  THEN 

WRITE( 6,123)  IRETCODE, ILIMIT 
123  FORMAT ( '  RETCODE , NEW  LIMIT : ' , 2 1 8 ) 

STOP  'ERROR  ADJUSTING  WORKING  SET  SIZE’ 

END  IF 
C 

INADR( 1 ) =%LOC( BUFFER( 1,1,1))  ! START  ADDRESS 

INADR( 2 ) *%LOC ( BUFFER ( NADC , NBS I ZE , 3 ) )  ! STOP  ADDRESS 

IRETCODE=SYS$LCKPAG{ INADR, IRETADR, )  -  ! LOCK  PAGES  INTO  MEMORY 

I F ( I RETCODE . NE . 1 )  THEN 

WRITE (6,124)  INADR, IRETADR, IRETCODE, INADR( 2 ) -INADR ( 1 )+2 


124  FORMAT ( '  INADR, IRETADR, IRETCODE  FOR  BUFFER '  , / , 401 2 , Z6 , 1 6 ) 

STOP  'ERROR  LOCKING  PAGES  INTO  MEMORY’ 

END  IF 
C 

c - LOAD  MICROCODE  FOR  MULT  I  REQUEST  MODE 

C 

CALL  LPA$LOADMC( I TYPE , NUM , I ND, I  ERROR) 

I F ( IND.EQ. 1 )  GO  TO  20 
C 

C  LIKELY  ERROR  IS  THAT  LOADER  IS  NOT  RUNNING.  TO  RUN  LOADER 

C  @ [ SYSMGR ] LPA 1 1 STRT 

C 

WRITE( 6,10)  IND 

10  FORMATC  ERROR  LOADING  MICROCODE,  VAX/VMS  ERROR  CODE=',Z12,'  (HEX)') 

STOP 
C 

C - DETERMINE  SAMPLING  RATES  AND  START  THE  CLOCK 

C 

20  CALL  LPA$CLOCKA( IRATE, IPRSET, IND, NUM) 

I F ( IND.EQ. 1 )  GO  TO  40 
WRITE( 6,30)  IND 

30  FORMATC  ERROR  STARTING  CLOCK,  VAX/VMS  ERROR  CODE* ',Z 12,'  (HEX)’) 

STOP 
C 

C - SET  I BUF  ARRAY  FOR  SWEEPS,  DEFINE  THE  3  INPUT  BUFFERS 

C 

40  CALL  LPA$SETIBF ( I BUF , I ND , , BUFFER (1,1,1), BUFFER (1,1,2) 

1 , BUFFER ( 1,1,3)) 

I F ( IND.EQ. 1 )  GO  TO  50 

STOP  '  ERROR  SETTING  UP  IB'JF  ARRAY  FOR  SWEEPS,  LPA$SET  I BF  ’ 

C 

c - RELEASE  ALL  THE  BUFFERS 

C 

50  CALL  LPA$RLSBUF ( I BUF , I ND ,0,1,2) 

IF( IND.EQ. 1 )  GO  TO  60 

STOP  '  ERROR  RELEASING  BUFFER,  LPA$ RLSBUF ’ 

C 

C - SET  CHANNEL  INFORMATION  FOR  SWEEPS,  I  FLAG  RESERVED 


D  -  5 


•i 


* 
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C 

60  CALL  LPA$SETADC( IBUF, I  FLAG, ICHN,NCHN, INC, IND) 

I F ( IND.EQ. 1 )  GO  TO  70 

STOP  '  ERROR  SETTING  CHANNEL  INFORMATION,  LPA$SETADC ' 

C 

C - GET  READY  TO  DIGITIZE 

C 

70  WRITE( 6,80)  HEADB ( 8 ) , HEADB ( 9 ) , HEADB (10) 

80  FORMATC  START  ANALOG  TAPE,  HIT  RETURN  AT  ' , 12, ' : ' , 12, ' : * , 12, $) 

READ  1001,  IGO 
1001  FORMAT (A1 ) 

C 

c - START  THE  A/D  SWEEPS 

C 

CALL  LPA$ ADSWP (IBUF, LBUF , NBUF , MODE , DWELL , , LDELAY , I CHN , NCHN , I ND ) 
IF( IND.EQ. 1 )  GO  TO  100 
WRITE (6,90)  IND 

90  FORMATC  ERROR  STARTING  SWEEP,  VAX/VMS  ERROR  CODE=’,Z12,'  (HEX)') 

STOP 
C 

C - WAIT  FOR  NEXT  BUFFER  TO  COMPLETE 

C 

100  WRITE (6,110)  7  !  TURN  ON  SAMPLING  PULSES  AT  THE  TONE 

110  FORMAT ( 1 X , A ) 

C 

120  IBUFNO=LPA$ IWTBUF( IBUF, ) 

I F ( I BUFNO . GE . 0 )  GO  TO  140 
WRITE(6, 130)  7,7,7, IBUFNO,NREC, IOSB,7,7,7 
130  FORMAT ( IX, 3A1 , 'ERROR  FROM  LPA$IWTBUF  -  1BUFN0= ',15, '  REC',15 

1 ,/, '  ISOB  (HEX) * , 4Z1 2 , 3A1  ) 

STOP  'I BUFNO  <  O' 

C 

C - DUMP  THIS  BUFFER  TO  TAPE 

C 

140  CONTINUE 

NREC = NREC + 1  ! INCREMENT  RECORD  NUMBER 

C  PRINT  *,  NREC 


I  RETCODE=SYS$QIOW ( ,%VAL( ICHAN) , %VAL(WRINORET) , IOSBMT 
1  ,  , , BUFFER ( 1 , 1 , 1  +  IBUFNO) ,%VAL(LBUF2) , , , , ) 

IF( .NOT. IRETCODE)  STOP  'MAG  TAPE  ERROR' 

I F ( IOSBMT ( 1 ) ,NE. 1 )  THEN 

WRITE( 6,150)  7,(1 OSBMT ( I ) , I = 1 , 4 ) 


150  FORMAT ( X, A1 , 'PROBLEM  WRITING  TO  TAPE  ,  IOSB  ' , 4 ( Z6 ) ) 

WRITE (6, 160)  NREC, I BUFNO 

160  FORMAT ( X ,' RECORD  ',15,'  BUFFER  NUMBER  ’,12) 

END  IF 

I F ( NREC . GT . NBUF )  GO  TO  180 
C 

C - RELEASE  THIS  BUFFER  FOR  A/D  TO  REFILL,  GO  GET  NEXT  ONE 


C 

CALL  LPA$RLSBUF( IBUF, IND, IBUFNO) 
IF(IND.NE.I)  STOP  ' LPA$RLSBUF ' 

GO  TO  120 
C 


C - COME  HERE  AT  END  OF  A  CUT  AND  STOP  IN-PROGRESS  SWEEP 

C 

180  CALL  LPA$STPSWP( IBUF, 1 , IND) 

IF( IND.EQ. 1 )  GO  TO  200 


0-6 


non 
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_DRB0: [ MAC I E . TM ] A2D . FOR ; 2 
WRITE( 6 ,190)  IND 

190  FORMAT ( '  ERROR  STOPPING  SWEEP,  VAX/VMS  ERROR  CODE= ' , Z1 2 , '  (HEX)') 

- DIGITIZING  COMPLETE,  PUT  TWO  END  OF  FILES  ON  MAGTAPE 

200  WRITE( 6,210)7,7,7,7 

210  FORMAT ( 1  END  OF  RUN',4A1) 

IRETCODE=SYS$QIOW( ,%VAL( ICHAN) , IO$_WRITEOF, IOSBMT, ,,,,,,,) 
IRETCODE=SYS$QIOW ( , %VAL( ICHAN) , IO$_WRITEOF, IOSBMT, ,,,,,,,) 

C 

CALL  EXIT 
END 


non  n  n 


_DRB0 : [ MAC I E . TM ] GETHE AD . FOR ; 5 

C  GETHEAD . FOR  GETS  OUT  THE  HEADER  INFORMATION  FOR  A  SPECIFIED  TAPE. 

C - 

C  HEADB ( 1  - 2  ) 

C  HEADB ( 3 ) 

C  HEADB ( 4 ) 

C  HEADB ( 5 ) 

C  HEADB ( 6 ) 

C  HEADB ( 7  ) 

C  HEADB ( 8 ) 

C  HEADB ( 9 ) 

C  HEADB (10) 

C  HEADB (11-30) 

C  HEADB (31) 

C  HEADB (32) 

C  HEADB (33) 

C  HEADB (34) 

C  HEADB (35) 

C  HEADB ( 36 ) 

C  HEADB (37) 

C  HEADB (38) 

C  HEADB ( 39) 

C  HEADB (40) 

C  HEADB (41) 

C  HEADB (42) 

C  HEADB (43) 

C  HEADB (44) 

C  HEADB (45) 

C  HEADB (46) 

C  HEADB ( 47 ) 

C  HEADB (48) 

C  HEADB ( 49 ) 

C  HEADB (50) 

C  HEADB ( 51 ) 

C  HEADB (52) 

C  HEADB (53) 

C  HEADB (54) 

C  HEADB ( 55 ) 

C  HEADB (56) 

C  HEADB( 57-60 ) 

C 

C - 

SUBROUT  I NE  GETHEAD ( RUNNO , I  PASS , NBYTES , HEADB ) 


BYTE  HEADB (  1  )  ,  F I LNAM (11) 

INTEGER  RUNNO 

OPEN  THE  FILE  AND  READ  IN  THE  HEADER 

ENCODE ( 10 ,4, FI LNAM)  RUNNO, I  PASS 

4  FORMAT ( 'R' , 12, 'P' , II , ' H . DAT ' ) 

F I LNAM ( 1 1  )  =  0 

PRINT  5,  (FILNAM( I) , 1=1 , 10) 

5  FORMAT (X/X, 'HEADER  FILE;  ', 1 0A1 //40 ('-’),/ ) 

OPEN ( UN IT= 1 0 , NAME=FILNAM, STATUS = ’ OLD' , FORM= ' UNFORMATTED ' , READONLY ) 
READ (10)  ( HEADB ( I ) , I = 1 , NBYTES ) 

CLOSE ( UN  I T= 1 0 ) 


HEAD 12(1 ) 

ANALOG 

TAPE  NUMBER 

HEAD I 2 ( 2 ) 

PASS  NUMBER  ( 1 , 

2  OR  3) 

ft 

NUMBER 

OF  CHANNELS  14  OR  24 

HEAD 1 2 ( 3 ) 

DIGITIZING  MONTH 

ft 

DIGITIZING  DAY 

HEAD 1 2 ( 4 ) 

DIGITIZING  YEAR 

ft 

EXPERIMENT  TIME 

CODE  START 

HOUR 

HEAD I 2 ( 5 ) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

ft 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

HEAD I 2 (6-15) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

HEADI2( 16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

HEAD I 2 (17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

HEADI2( 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

HEAD I 2 (19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

HEAD I 2 ( 20 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

1  0 

HEAD I 2 ( 2 1 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

1  2 

HEAD I 2 ( 22 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  3 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

1  4 

HEAD I 2 ( 23 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  5 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

HEAD I 2(24) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  7 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

HEADI 2(25) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  9 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

HEADI 2(26) 

ANALOG 

CHANNEL 

IN 

POSITION 

2  1 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

HEADI 2(27) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

HEADI 2 (28) 

ft 

RUN  IDENTIFICATION  NUMBER 

HEADFP ( 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC ) 

TM  No.  861214 

DRBO : [MACIE.TM] LISTHEAD . FOR; 1 1 


C  LISTHEAD. FOR  LISTS  OUT  THE  HEADER  INFORMATION  FOR  A 

C  SPECIFIED  TAPE. 


V. - 

c 

HEADB ( 1 -2) 

HEADI 2 ( 1 ) 

ANALOG 

TAPE  NUMBER 

c 

HEADB ( 3  ) 

HEAD  1 2 ( 2 ) 

PASS  NUMBER  (1,2  OR  3 ) 

c 

HEADB ( 4 ) 

n 

NUMBER 

OF  CHANNELS 

;  14  OR  24 

c 

HEADB ( 5 ) 

HEAD  12(3) 

DIGITIZING  MONTH 

c 

HEADB ( 6 ) 

it 

DIGITIZING  DAY 

c 

HEADB ( 7 ) 

HEADI 2(4) 

DIGITIZING  YEAR 

c 

HEADB ( 8 ) 

It 

EXPERIMENT  TIME 

CODE  START 

HOUR 

c 

HEADB ( 9 ) 

HEADI 2 ( 5 ) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

c 

HEADB (10) 

it 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

c 

HEADB ( 11-30) 

HEAD 1 2 (6-15) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

c 

HEADB (31) 

HEADI 2 (16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

c 

HEADB (32) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

c 

HEADB (33) 

HEADI 2(17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

c 

HEADB ( 34) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

c 

HEADB ( 35) 

HEADI 2 ( 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

c 

HEADB ( 36) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

c 

HEADB (37) 

HEAD  1 2 ( 19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

c 

HEADB ( 38) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

c 

HEADB ( 39) 

HEADI 2(20) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

c 

HEADB (40) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

1  0 

c 

HEADB ( 4 1 ) 

HEAD  12(21  ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

c 

HEADB (42) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

c 

HEADB (43) 

HEADI 2(22) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  3 

c 

HEADB (44) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

c 

HEADB (45) 

HEADI 2(23) 

ANALOG 

CHANNEL 

IN 

POSITION 

15 

c 

HEADB (46) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

c 

HEADB (47) 

HEADI 2(24) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  7 

c 

HEADB (48) 

it 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

c 

HEADB (49) 

HEADI 2(25) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  9 

c 

HEADB (50) 

H 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

c 

HEADB ( 51 ) 

HEADI 2 ( 26 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

21 

c 

HEADB (52) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

c 

HEADB (53) 

HEADI 2 (27) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

c 

HEADB (54 ) 

It 

ANALOG 

CHANNEL 

IN 

POS I T I  ON 

24 

c 

HEADB ( 55) 

HEADI 2(28) 

RUN  IDENTIFICATION  NUMBER 

c 

HEADB ( 56) 

It 

It 

c 

c 

c 

HEADB ( 57-60 ) 

HEADFP ( 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC ) 

c - 

SUBROUTINE  LISTHEAD( HEADB , HEADI 2 , HEADI 4 ) 

C 

BYTE  HEADB ( 1 ) 

I NTEGER*2  HEAD  I  2 ( 1  ) 
I NTEGERM  HEAD  I  4  (  1  ) 
C 


C - PRINT  OUT  THE  ALL  HEADER  INFO 

C 

PRINT  1 ,  ( HEADB (  I ) ,  1  =  1 1 , 30  ) 

1  FORMAT (  X ,  '  ***  EVENT  DESCRIPTION:  '  , 2 C A 1  ,  ’  ***’) 

C 

PRINT  2 ,  HEADI 2 ( 1 ) 

2  FORMAT (X/X,'  ANALOG  TAPE  NUMBER:  ' ,  4X,I4> 

C 

PRINT  3,  HEADI 2 (28) 
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3 
C 

4 
C 

5 
C 

6 

C 

C 

7 

8 
C 


FORMAT{X, '  RUN  IDENTIFICATION  NUMBER:  ' , 6X , I  2 ) 

PRINT  4,  HEADB ( 3 ) 

FORMAT { X ,  '  PASS  NUMBER:  ’,7X,I1) 

PRINT  5,  HEADB ( 8 )  , HEADB ( 9 )  , HEADB (10) 

FORMAT(X, '  START  TIME  CODE:  ,,I2,,:',I2,  :  ,12) 


PRINT  6,  HEADB ( 5 ) , HEADB ( 6 ) , HEADB ( 7 ) 
FORMAT (X,*  DATE: 


’  ,12,'/' ,12, ’/’I2) 


NCHAN=HEADB ( 4 ) 


PRINT  7 

FORMAT (X/X, '  POSITION  :  CHANNEL  POSITION  :  CHANNEL  , 

X/X,'  -  - '  ) 

NHALF=NCHAN/2 
DO  1=1 , NHALF 
K= I +NHALF 

PRINT  8,  I , HEADB ( I +30 ) , K, HEADB ( K+30 ) 

FORMAT ( X , 4X , 1 2 , 3X , '  :  ' , 3X, I2,2X,5X,3X, 12, 3X, '  :  ’,3X,I2) 
END  DO 


RETURN 

END 
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APPENDIX  E 


LISTINGS  OF 
SAVRECAT . FOR 
LISTHEAD. FOR 


E-  l/E-2 
Reverse  Blank 
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DRBO : [ MAC I E . TM ] S AVRECAT . FOR ; 3 

SAVRECAT . FOR  READS  A  FOREIGN  MAG_TAPE  MADE  BY  THE  A2D  PROGRAM. 

IT  COPIES  AND  SEPARATES  THE  REDUNDANT  CHANNELS 
(2,4,10,13)  BEGINNING  AND  ENDING  RECORDS  TO  A 

DISK  FILE.  FILENAMES:  R _ P_C _ B.DAT  500  BUFFERS 

RPC  E.DAT  50  BUFFERS 


PARAMETER  NA2DCH=14  ‘NUMBER  OF  CHANNELS 

PARAMETER  NSIZE=500  ! NUMBER  OF  WORDS/CHANNEL  IN  A  RECORD 

PARAMETER  NDIM=NA2DCH*NSIZE*2 


BYTE  F I LNAM ( 1 4 ) , HE ADB ( ND I M ) 

INTEGER* 2  HEAD 1 2 ( NDIM/2 ) 

INTEGER* 2  BUF1 (NA2DCH,NSIZE) , BUF2 ( NS IZE , NA2DCH ) , IOSB(4) 
INTEGER*4  ICHAN, IRETCODE, SYS$QIOW, RUNNO, PASS 
INTEGER* 4  HEAD 1 4 (NDIM/4 ) 

DIMENSION  I RCH ( 4 ) 

EXTERNAL  10$  READLBLK, IO$_REWIND, IO$_SKIPFILE, IO$_SKIPRECORD 
EQUIVALENCE  THEADB , HEAD I  2 , HEAD 1 4 ) 

DATA  IRCH/2,4, 10, 13/  ! REDUNDANT  CHANNELS 


NCHAN=NA2DCH 
NWORDS=NCHAN*NS I ZE 
NBYTES=NWORDS*2 


!  NUMBER  OF  CHANNELS 
!  NUMBER  OF  1*2  WORDS/BLOCK 
!  NUMBER  OF  BYTES/BLOCK 


FIND  OUT  WHAT  RUN  WE  ARE  PROCESSING 

PRINT  *,  ’ENTER  RUN  IDENTIFICATION  NUMBER’ 
READ  *,  RUNNO 

PRINT  *,  'ENTER  PASS  NUMBER' 

READ  *,  PASS 

I GROUP= RUNNO- ( RUNNO/ 10*10) 

PRINT  *,  'PROCESSING  GROUP  ' , I GROUP 


ASSIGN  THE  9  TRACK  TAPE  DRIVE  (6250)  AND  MAKE  SURE  IT  IS  REWOUND 

CALL  SYS$ASSIGN( 'MAG  TAPE '  , I  CHAN , , ) 

I RETCODE=SYS$Q IOW( ,%VAL( ICHAN) , IO$_REWIND, IOSB, 

IF  ( .NOT. IRETCODE)  STOP  'REWIND  ERROR' 


- SKIP  FILES  IF  REQUESTED 

PRINT  *,  'HOW  MANY  FILES  DO  YOU  WANT  TO  SKIP?' 

READ  *,  NSKIP 
IF(NSKIP.LT.O)  THEN 

PRINT  *,  'YOU  MUST  ONLY  GO  IN  THE  FORWARD  DIRECTION' 

PRINT  *,  'THE  NUMBER  OF  FILES  MUST  BE  POSITIVE’ 

GOTO  1 
END  IF 

I RETCODE=SYS$Q IOW ( , %VAL( ICHAN) , IO$_SK I PF I LE , IOSB, , , %VAL( NSKIP) , , , , 
IF  ( . NOT . I RETCODE )  STOP  'SKIP  FILE  ERROR' 

IF( IOSB( 2) .NE.NSKIP)  THEN 

PRINT  *, 'PROBLEM  SKIPPING  ', NSKIP,  '  FILES' 

PRINT  *,  IOSB 

STOP  'SKIPPING  FILE  ERROR' 

END  IF 

- READ  IN  THE  HEADER  AND  PRINT  OUT 
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DRSO : [ MAC I E . TM ] SAVRECAT . FOR ; 3 


IRETCODE*SYS$QIOW( , %VAL{ ICHAN) , I 0$_READLBLK , IOSB, , , 

1  HEADB , %VAL ( NBYTES ),,,,) 

IF  { .NOT. IRETCODE)  STOP  'READING  HEADER  ERROR' 

I F ( I OSB ( 2 ) . NE . NBYTES )  STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  HEADER 
CALL  L I STHEAD ( HEADB , HEAD 1 2 , HEAD 1 4 ) 

Z - OPEN  OUTPUT  FILES,  CHANNELS  WILL  SEPERATED  INTO  R _ P_C _ B. DAT 

DO  K=  1  , 4 
1*1 RCH ( K ) 

I UNIT* 1+10 

ENCODE ( 1 3 , 1 0 , F I LNAM )  RUNNO,PASS,I 
10  FORMAT ( ' R ' , 1 2 , ’ P ’ , 1 1 , ' C ’ , I  2 , ' B . DAT ’ ) 

FI LNAM ( 1 4 ) *0 

OPEN ( UNIT* I UNIT , STATUS* ' NEW ' , FILE* FI LNAM, FORM* ’ UNFORMATTED' ) 
PRINT  20,  I UNIT, ( FILNAM( J ) , J=1 ,13) 

!0  FORMAT  (2X, 'OUTPUT  UNIT*  ' , 1 5 , 2X , ' FILE  ’,13A1,'  500  BUFFERS') 

END  DO 

- READ  THE  DATA  IN 

NRECORDS=500  !WE  WANT  500  BEGINNING  RECORDS 

DO  NR* 1 , NRECORDS 

I RETCODE=SYS$Q I OW ( ,%VAL( ICHAN) , IO$_READLBLK , IOSB, , , 

1  BUF1 ,%VAL( NBYTES) , , , , ) 

IF  ( .NOT. IRETCODE)  STOP  'ERROR  READING  DATA  RECORD' 

IF(IOSB(1 ) .EQ.'0870'X)  THEN 

PRINT  *,  'AT  EOF  IN  RECORD  * , NR 
END  IF 

I F ( I OSB ( 2 ) . NE . NBYTES )  STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  DATA 

- SEPERATE  OUT  EACH  CHANNEL  AND  SAVE  IT  ON  DISK 

DO  K= 1 , 4  ! SWAP  ORDER  OF  DATA 

I = I RCH ( K ) 

DO  J  =  1 ,NSIZE 

BUF2 ( J , I ) =BUF1 ( I ,J) 

END  DO 

I UNIT* 10+1  ! OUTPUT  UNITS  14-26 

WRITE ( I UN IT )  (BUF2 ( J, I ) , J* 1 , NS  I ZE ) 

END  DO 
END  DO 

DO  K=1  ,4 

I  UN  I T  = I RCH (  K  )  +  1  0 
CLOSE ( UN  IT* I  UNIT) 

END  DO 

- SKIP  RECORDS  TO  END  OF  TAPE  (FOR  GROUPS  1-3  ONLY,  4  TOTAL) 

IF( I GROUP. EQ. 4 )  CALL  EXIT 
I F ( PASS . EQ . 1 )  THEN 

NSK I P  =  9250  ! WE  RECORDED  9800  FOR  PASS  1 

ELSE 

NSKIP=9370 
END  IF 


E-4 


! WE  RECORDED  9920  FOR  PASS  2 
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IRETCODE=SYS$QIOW( ,%VAL( I CHAN) , IO$_SKIPRECORD, IOSB, , ,%VAL(NSKIP) , , , 
IF  ( .NOT. IRETCODE)  THEN 

PRINT  600,  (I0SB( I) , 1=1 ,4) 

600  FORMAT(2X, ' IOSB  ’,4Z8.8) 

STOP  'SKIP  RECORD  ERROR' 

END  IF 

I F ( I OSB ( 2 ) . NE . NSK I P )  THEN 

PRINT  PROBLEM  SKIPPING  ',NSKIP,  '  RECORDS' 

PRINT  *,  IOSB 

STOP  'SKIPPING  RECORD  ERROR' 

END  IF 

-OPEN  OUTPUT  FILES,  CHANNELS  WILL  SEPERATED  INTO  R _ P_C _ E . DAT 

DO  K=1 ,4 
I = I RCH ( K ) 

IUNIT= 1+10 

ENCODE ( 1 3 , 3  0 , F I LNAM )  RUNNO,PASS,I 
FORMAT ( 'R’,I2,'P',I1,'C',I2, ' E . DAT ' ) 

FI LNAM ( 1 4 ) =0 

OPEN ( UNIT= IUNIT , STATUS = ' NEW ' , FI LE=F I LNAM, FORM= ' UNFORMATTED’ ) 
PRINT  40,  IUNIT, (FILNAM(J) ,J»1 ,13) 

FORMAT  ( 2X , ' OUTPUT  UNIT=  '  , I  5 , 2X, ' FILE  ’ , 1 3A1 , '  50  BUFFERS') 

END  DO 

-READ  THE  DATA  IN 

DO  NR= 1,51  ! WE  WANT  50  BUFFERS,  MAKE  SURE  AT  EOF 

IRETCODE=SYS$QIOW{ ,%VAL( ICHAN) , IO$_READLBLK , IOSB, , , 

1  BUF1 ,%VAL(NBYTES) , , , , ) 

IF  ( . NOT . I RETCODE )  STOP  'ERROR  READING  DATA  RECORD' 

IF( IOSB( 1 ) .EQ. ’ 0870 'X)  THEN 

PRINT  *,  'AT  EOF  IN  RECORD  ' ,NR 
GO  TO  2 
END  IF 

I F ( I OSB ( 2 ) . NE . NBYTES )  STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  DATA' 

-SEPERATE  OUT  EACH  CHANNEL  AND  SAVE  IT  ON  DISK 

DO  K= 1 , 4  ! SWAP  ORDER  OF  DATA 

I = I RCH ( K ) 

DO  J=1 ,NSIZE 

BUF2 ( J , I ) =BUF1 ( I , J) 

END  DO 

IUNIT= 10+1  ! OUTPUT  UNITS  14-26 

WRITE ( IUNIT)  ( BUF2 ( J , I ) , J  =  1 , NS  I ZE ) 

END  DO 
END  DO 

-CLOSE  THE  FILES 
DO  K=1  ,4 

I  UN  I T= I RCH ( K  )  +  1  0 
CLOSE ( UN IT=IUNIT) 

END  DO 

PRINT  * ,  ’ RECAT  FILES  HAVE  BEEN  SAVED' 

CALL  EXIT 
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_DRB0 : [ MAC I E . TM ] L I STHEAD . FOR ;  1  1 

C  LI STHEAD. FOR  LISTS  OUT  THE  HEADER  INFORMATION  FOR  A 

C  SPECIFIED  TAPE. 


v. - 

C 

HEADB( 1-2) 

HEADI 2 ( 1 ) 

ANALOG 

TAPE  NUMBER 

C 

HEADB ( 3 ) 

HEADI 2 ( 2 ) 

PASS  NUMBER  ( 1 , 

2  OR  3) 

C 

HEADB ( 4 ) 

it 

NUMBER 

OF  CHANNELS 

14  OR  24 

c 

HEADB ( 5 ) 

HEADI 2 ( 3 ) 

DIGITIZING  MONTH 

c 

HEADB ( 6 ) 

It 

DIGITIZING  DAY 

c 

HEADB ( 7 ) 

HEADI 2 ( 4 ) 

DIGITIZING  YEAR 

c 

HEADB ( 8 ) 

It 

EXPERIMENT  TIME 

CODE  START 

HOUR 

c 

HEADB ( 9 ) 

HEADI 2 ( 5 ) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

c 

HEADB (10) 

It 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

c 

HEADB ( 1 1-30) 

HEADI 2 (6-15) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

c 

HEADB ( 3 1 ) 

HEADI 2 ( 16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

c 

HEADB ( 32) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

c 

HEADB (33) 

HEAD I 2 (17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

c 

HEADB ( 34 ) 

H 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

c 

HEADB ( 35 ) 

HEADI 2 ( 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

c 

HEADB ( 36) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

c 

HEADB ( 37) 

HEADI 2 (19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

c 

HEADB ( 38) 

it 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

c 

HEADB ( 39) 

HEADI 2(20) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

c 

HEADB (40) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

10 

c 

HEADB (41) 

HEADI 2 ( 21 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

c 

HEADB (42) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

c 

HEADB (43) 

HEADI2( 22) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  3 

c 

HEADB (44) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

c 

HEADB (45) 

HEADI 2 (23) 

ANALOG 

CHANNEL 

IN 

POSITION 

15 

c 

HEADB (46) 

it 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

c 

HEADB (47) 

HEADI2( 24) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  7 

c 

HEADB (48 ) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

c 

HEADB ( 49) 

HEADI2( 25) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  9 

c 

HEADB ( 50 ) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

c 

HEADB ( 51 ) 

HEADI 2 ( 26 ) 

ANALOG 

CHANNEL 

IN 

POS I T I  ON 

21 

c 

HEADB( 52 ) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

c 

HEADB (53) 

HEADI2( 27) 

ANALOG 

CHANNEL 

IN 

POS I T I  ON 

23 

c 

HEADB ( 54) 

It 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

c 

HEADB (55) 

HEADI 2 ( 28 ) 

RUN  IDENTIFICAT 

ION  NUMBER 

c 

HEADB ( 56 ) 

ft 

II 

c 

c 

c - 

HEADB( 57-60) 

HEADFP ( 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0OO4SEC > 

SUBROUTINE  LI STHEAD ( HEADB, HEAD I  2 , HEADT  4 ) 


BYTE  HEADB ( 1 ) 

INTEGERS  HEADI 2(  1  ) 

INTEGERM  HEADI  4  (  1  ) 

- PRINT  OUT  THE  ALL  HEADER  INFO 

PRINT  1 ,  ( HEADB (  I ) , I  =  1  1  , 30  ) 

1  FORMAT ( X , '  ***  EVENT  DESCRIPTION:  ’,20A','  ***'> 

C 

PRINT  2 ,  HEADI 2 ( 1 ) 

2  FORMAT (X/X,1  ANALOG  TAPE  NUMBER:  ’,4X,I4’ 

C 

PRINT  3,  HEAD  I  2 ( 28 ) 

E  -  7 
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FORMAT ( X ,  '  RUN  IDENTIFICATION  NUMBER:  ' , 6X , 1 2 ) 

PRINT  4,  HEADB ( 3 ) 

FORMAT  (  X ,  '  PASS  NUMBER:  \7X,H) 

PRINT  5,  HEADB ( 8  )  , HEADB ( 9 )  , HEADB (10) 

FORMAT ( X ,  '  START  TIME  CODE:  ' , 1 2 , ' : ' , 1 2 , ' : ' , 1 2 ) 

PRINT  6,  HEADB (  5 )  , HEADB ( 6 )  , HEADB { 7 ) 

FORMAT! X, '  DATE:  * , 1 2 , ' / ' , 1 2 , ' / ' 1 2 ) 

NCHAN=HEADB ( 4 ) 

PRINT  7 

FORMAT ( X/X , '  POSITION  :  CHANNEL  POSITION  :  CHANNEL', 

1  X/X,'  -  - ’  > 

NH AL  F = NCH AN / 2 
DO  1=1, NHALF 
K= I + NHALF 

PRINT  8,  I , HEADB ( 1+30 ) , K, HEADB (K+ 30 ) 

FORMAT  ( X ,  4X ,  1 2 , 3X ,  '  :  ’  ,  3X,  12 , 2X,  5X,  3X,  12 , 3X,  '  :  \3X,I2) 

END  DO 


RETURN 
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LISTINGS  OF 
READDT . FOR 
LISTHEAD. FOR 
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F 


a 


a 


a 


A 


F- l/F-2 
Reverse  Blank 
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I 
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DRBO : [ MAC I E . TM ] READDT . FOR ; 3 1 

READDT. FOR  READS  A  FOREIGN  MAG_TAPE  MADE  BY  THE  A2D  PROGRAM 
COPIES  AND  SEPARATES  THE  DIFFERENT  CHANNELS  INTO 
DIFFERENT  FILES.  THIS  VERSION  IS  FOR  14  CHANNELS. 


PARAMETER  NA2DCH=14  [NUMBER  OF  CHANNELS 

PARAMETER  NSIZE=500  [NUMBER  OF  WORDS/CHANNEL  IN  A  RECORD 

PARAMETER  NDIM=NA2DCH*NSIZE*2 

BYTE  F I LNAM (13), HE ADB ( ND I M ) 

INTEGERS  HEADI 2  (NDIM/2  ) 

INTEGER* 2  BUF1 ( NA2DCH , NSIZE ) , BUF2 ( NS  I ZE , NA2DCH ) , IOSB(4) 

INTEGER* 4  I CHAN, IRETCODE , SYS$QIOW, RUNNO, PASS 
INTEGER* 4  HEAD 1 4 ( ND I M/4 ) 

EXTERNAL  10$  READLBLK, IO$_REWIND, IO$_SKIPFILE 
EQUIVALENCE  THEADB , HEADI 2 , HEADI 4 ) 

NCHAN=NA2DCH  [NUMBER  OF  CHANNELS 

NWORDS=NCH AN* NSIZE  [NUMBER  OF  1*2  WORDS/BLOCK 

NBYTES=NW0RDS*2  [NUMBER  OF  BYTES/BLOCK 

FIND  OUT  WHAT  RUN  WE  ARE  PROCESSING 

PRINT  *,  'ENTER  RUN  IDENTIFICATION  NUMBER’ 

READ  *,  RUNNO 

PRINT  *,  ’ENTER  PASS  NUMBER' 

READ  *,  PASS 

OPEN  OUTPUT  FILES,  CHANNELS  WILL  SEPERATED  INTO  R _ P_C _ .DAT 

DO  1=1, NCHAN 
IUNIT-I+10 
ICHAN= I 

ENCODE ( 1 2 , 1 0 , F I LNAM )  RUNNO , PASS , I CHAN 
FORMAT ('R',I2,'P',I1,'C,,I2,'. DAT ’ ) 

F I LNAM( 1 3 ) =0 

OPEN ( UNIT= I  UNIT , STATUS3 ' NEW ' , F I LE  =  F I LNAM , FORM3 ’ UNFORMATTED '  ) 

PRINT  20,  IUNIT, (FILNAM(J) ,J=1 , 12) 

FORMAT  (2X,  'OUTPUT  UNIT3  '  , I  5 , 2X, ' FILE  ' 1 2 A 1 ) 

END  DO 

ASSIGN  THE  9  TRACK  TAPE  DRIVE  (6250)  AND  MAKE  SURE  IT  IS  REWOUND 
CALL  SYS$ASS I GN ( ' MAG_TAPE ' , ICHAN, , ) 

I RETCODE=SYS$Q IOW ( ,%VAL( ICHAN) , IO$_REWIND, IOSB, ,,,,,,,) 

IF  ( .NOT. IRETCODE)  STOP  'REWIND  ERROR' 

SKIP  FILES  IF  REQUESTED 

1  PRINT  *,  'HOW  MANY  FILES  DO  YOU  WANT  TO  SKIP?' 

READ  *,  NSKIP 
IF(NSKIP.LT.O)  THEN 

PRINT  *,  'YOU  MUST  ONLY  GO  IN  THE  FORWARD  DIRECTION' 

PRINT  *,  'THE  NUMBER  OF  FILES  MUST  BE  POSITIVE' 

GOTO  1 
END  IF 

I RETCODE=SYS$Q I OW ( ,%VAL( ICHAN) , I 0$_SK I PF I LE , IOSB, , ,%VAL(NSKIP) ,,,,,) 
IF  ( .NOT. IRETCODE)  STOP  'SKIP  FILE  ERROR' 
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C 

C 

C 


C 

C 

C 


C 

C 


C 

C 

C 


C 

C 

C 


C 


IF( IOSB(2) .NE.NSKIP)  THEN 

PRINT  * , ' PROBLEM  SKIPPING  ',NSKIP,  '  FILES' 

PRINT  *,  IOSB 

STOP  'SKIPPING  FILE  ERROR' 

END  IF 

-READ  IN  THE  HEADER  AND  PRINT  OUT 

IRETCODE=SYS$QIOW{ ,%VAL( ICHAN) , IO$_READLBLK , IOSB , , , 

1  HEADB , % VAL ( NBYTES ),,,,) 

IF  ( . NOT . I RETCODE )  STOP  'READING  HEADER  ERROR' 

I F ( I OSB ( 2 ) . NE . NBYTES )  STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  HEADER' 
CALL  L I STHEAD ( HEADB , HEAD I  2 , HEAD 1 4 ) 

-READ  THE  DATA  IN 

PRINT  *,  'HOW  MANY  RECORDS  DO  YOU  WANT  TO  READ?’ 

READ  *,  NRECORDS 

DO  NR= 1 , NRECORDS 

I RETCODE=SYS$QIOW ( , %VAL( ICHAN) , IO$_READLBLK , IOSB, , , 

1  BUF1 ,IVAL( NBYTES) ,,,, ) 

IF  ( .NOT. I RETCODE)  STOP  'ERROR  READING  DATA  RECORD' 

IF( IOSB( 1 ) .EQ . ' 0870 ’ X)  THEN 

PRINT  *,  'AT  EOF  IN  RECORD  ' , NR 
END  IF 

IF( IOSB(2) .NE. NBYTES)  STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  DATA’ 

-SEPERATE  OUT  EACH  CHANNEL  AND  SAVE  IT  ON  DISK 

DO  1=1, NCHAN  ! SWAP  ORDER  OF  DATA 

DO  J=1 ,NSIZE 

BUF2 ( J  ,  I  ) =BUF1 ( I , J ) 

END  DO 
END  DO 

DO  1=1, NCHAN 

IUNIT=10+I  10UTPUT  UNITS  14-26 

WRITE! IUNIT)  ! BUF2 ( J , I ) , J=1 ,NSIZE) 

END  DO 
END  DO 

-CLOSE  THE  FILE 
DO  1=1, NCHAN 

IUNIT=10+I  ! OUTPUT  UNITS  14-26 

CLOSE! IUNIT) 

END  DO 

CALL  EXIT 
END 
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LI  STHEAD. FOR 


LISTS  OUT  THE  HEADER  INFORMATION  FOR  A 
SPECIFIED  TAPE. 


- 

C 

HEADB ( 1-2) 

HEADI 2 ( 1 ) 

ANALOG 

TAPE  NUMBER 

C 

HEADB ( 3 ) 

HEADI 2 ( 2 ) 

PASS  NUMBER  (1,2  OR  3 ) 

c 

HEADB ( 4 ) 

»» 

NUMBER 

OF  CHANNELS 

;  14  OR  24 

c 

HEADB ( 5 ) 

HEADI 2 ( 3 ) 

DIGITIZING  MONTH 

c 

HEADB ( 6 ) 

if 

DIGITIZING  DAY 

c 

HEADB ( 7 ) 

HEADI 2 ( 4 ) 

DIGITIZING  YEAR 

c 

HEADB ( 8 ) 

n 

EXPERIMENT  TIME 

CODE  START 

HOUR 

c 

HEADB ( 9 ) 

HEAD 12(5) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

c 

HEADB (10) 

If 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

c 

HEADB ( 11-30) 

HEADI 2(6-15) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

c 

HEADB ( 31 ) 

HEAD 12(16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

c 

HEADB ( 32) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

c 

HEADB ( 33) 

HEADI 2 ( 17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

c 

HEADB ( 34 ) 

f? 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

c 

HEADB (35) 

HEADI 2 (18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

c 

HEADB ( 36) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

c 

HEADB (37) 

HEADI 2(19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

c 

HEADB ( 38) 

ff 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

c 

HEADB ( 39) 

HEADI 2 (20) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

c 

HEADB (40) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

10 

c 

HEADB (41) 

HEADI 2(21 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

c 

HEADB (42) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

c 

HEADB (43) 

HEADI 2 (22) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  3 

c 

HEADB (44 ) 

If 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

c 

HEADB (45) 

HEADI 2 (23) 

ANALOG 

CHANNEL 

IN 

POSITION 

15 

c 

HEADB (46) 

ff 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

c 

HEADB (47) 

HEADI 2 (24) 

ANALOG 

CHANNEL 

IN 

POSITION 

17 

c 

HEADB ( 48 ) 

ff 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

c 

HEADB (49) 

HEADI 2 (25) 

ANALOG 

CHANNEL 

IN 

POSITION 

19 

c 

HEADB (50) 

ff 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

c 

HEADB ( 51 ) 

HEADI2( 26) 

ANALOG 

CHANNEL 

IN 

POSITION 

21 

c 

HEADB (52) 

ff 

ANALOG 

CHANNEL 

IN 

POS I T I  ON 

22 

c 

HEADB (53) 

HEADI 2(27) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

c 

HEADB ( 54) 

ff 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

c 

HEADB( 55) 

HEADI 2(28) 

RUN  IDENTIFICATION  NUMBFR 

c 

HEADB (56) 

ff 

If 

c 

c 

HEADB ( 57 -60 ) 

HEADFP ( 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC ) 

c - 

c - 

SUBROUTINE  LI STHEAD ( HEADB , HEADI 2 , HEADI 4 ) 

*  9  C  , 


BYTE  HEADB ( 1 ) 

I NTEGER* 2  HEADI 2 ( 1 ) 
INTEGERM  HEAD  I  4  (  1  ) 

■PRINT  OUT  THE  ALL  HEADER  INFO 


PRINT  1 ,  ( HEADB ( I ) , 1=1 1 , 30 ) 

FORMAT ( X , '  ***  EVENT  DESCRIPTION:  ',20^ 

PRINT  2,  HEAD  I  2 ( 1 ) 

FORMAT (X/X,'  ANALOG  TAPE  NUMBER: 

PRINT  3,  HEADI 2(28) 
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3 

FORMAT ( X , 

'  RUN  IDENTIFICATION  NUMBER: 

’  ,6X, 

12) 

C 

PRINT  4, 

HEADB ( 3 ) 

ID 

4 

FORMAT ( X , 

•  PASS  NUMBER: 

MX, 

C 

PRINT  5, 

HEADB ( 8 ) , HEADB ( 9 ) , HEADB (10) 

’  :  ’  ,  12) 

5 

FORMAT { X , 

'  START  TIME  CODE: 

M2, 

' :’,I 2, 

C 

PRINT  6, 

HEADB ( 5 ) , HEADB ( 6 ) , HEADB ( 7 ) 

'/'  12) 

6 

FORMAT ( X , 

'  DATE : 

M2, 

V  ,12, 

C 

NCHAN=HEADB ( 4 ) 


C 

7 


8 


PRINT  7 

FORMAT (X/X,'  POSITION  :  CHANNEL 

X/X,'  - 

NHALF=NCHAN/2 
DO  1=1, NHALF 


POSITION  :  CHANNEL’ , 
- •  ) 


K= I +NHALF 

PRINT  8,  I , HEADB ( I  +  30  ) , K , HEADB ( K  +  30 ) 

FORMAT ( X , 4X , 1 2 , 3X , '  :  ’ , 3X , 1 2 , 2X , 5X , 3X , I  2 , 3X , '  :  ’,3X,I2) 

END  DO 


RETURN 

END 
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QUPL.COM 
QUPL . FOR 
PLCHAN . FOR 
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Reverse  Blank 
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_DRB0 : [ MAC I E . TM ] QUPL . COM ; 8 

$ !  QUPL.COM  COMMAND  STREAM  FOR  QUICK  PLOT  CHECK  OF  1ST  4  RECORDS 
$ !  OF  ALL  14  A/D  CHANNELS. 

$ ! - 

$!  SET  VERIFY 

$  IF  PI  . EQS.  ""  THEN  INQUIRE  Pi  "RUN  NUMBER?  " 

$ ! 

$  IF  P2  .EQS.  ""  THEN  INQUIRE  P2  "PASS  NUMBER?  " 

$  ! 

$  IF  P3  .EQS.  ""  THEN  - 

$  INQUIRE  P3  "ARE  YOU  RUNNING  ON  THE  TEKTRONICS?  (Y/N)" 

$  ! 

$  SET  DEF  DRB1 : [A2D.QUPL] 

$  OPEN/WRITE  QUPL  QUPL. IN 

$  WRITE  QUPL  PI 

$  WRITE  QUPL  P2 

$  WRITE  QUPL  "0. , .2" 

$  WRITE  QUPL  "0. , .2, .05" 

$ ! 

$  IF  F$STRING(P3)  .EQS.  "N"  THEN  GOTO  TEKT 
$  WRITE  QUPL  2 

$  WRITE  QUPL  2 

$  WRITE  QUPL  2 

$  WRITE  QUPL  2 

$  GOTO  MAKEPLOT 

$  ! 

$  TEKT: 

$  WRITE  QUPL  1 

$  WRITE  QUPL  1 

$  WRITE  QUPL  1 

$  WRITE  QUPL  1 

$  ! 

$  MAKEPLOT: 

$  CLOSE  QUPL 

$  ASS IGN/USER_MODE  QUPL. IN  FOR$READ 

$  RUN  DRBO : [ A2D . DIGIT ]QUPL  ! SEND  THE  PLOT  TO  THE  DISK 

$  DELETE  QUPL. IN;* 

$! 

$  DONE: 

$  WRITE  SYS$OUTPUT  "PLOTTING  COMPLETE" 

$  EXIT 


G-3 
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QUPL . FOR 


PERFORMS  A  QUICKLOOK  PLOT  OF  DIGITIZED  DATA  THAT 
HAS  BEEN  COPIED  FROM  TAPE  TO  DISK.  IT  IS  PLOTTED 
ONE  CHAN/PLOT  AND  4  CHANNELS/PAGE.  RIGHT  NOW 
IT  PLOTS  THE  FIRST  4  RECORDS  OF  500  PTS . 

ALL  CHANNELS  ARE  PLOTTED.  1-4,  5-8,  9-12,  13+14 


PARAMETER  NDIM=4096 , NSIZE=500 
BYTE  FILNAM( 1 3 ) 

INTEGER* 2  BUFFER (NS I ZE) 

I NTEGER  CHANNO , RUNNO , PASSNO , I CHAN ( 4 ) 
REAL  X(NDIM) , Y(NDIM) 

COMMON  I START , I STOP , TM I N , TMAX , TDEL 

NCHAN= 1 4 

NREC=4 


■FIND  OUT  WHAT  RUN  WE  ARE  PROCESSING 


PRINT  *,  'ENTER  RUN  IDENTIFICATION  NUMBER' 
READ  *, RUNNO 

PRINT  *,  'ENTER  PASS  NUMBER' 

READ  *,  PASSNO 

PRINT  *,  'RUN  ', RUNNO,',  PASS  ‘ , PASSNO 


-GET  OPERATORS  REQUESTED  PLOT  BOUNDS 


-MAKE  UP  TIME  AXIS,  GET  START  AND  STOP 


DO  1  I S= 1 , NPTS 

X( IS ) = FLOAT ( IS- 1 ) *DELTAT 

CONTINUE 


! T I  ME  AXIS 


DO  2  1=1, NPTS 
IF(X( I ) .GE.TMIN)  THEN 
I START= I 
GO  TO  3 
END  I  F 
CONTINUE 
CONTINUE 


'.START  SAMPLE 


DO  4  I =NPTS , 1,-1 
I F ( X ( I ) . LE.TMAX)  THEN 
I STOP= I 
GO  TO  5 
END  I  F 
CONTINUE 


I  STOP  SAMPLE 


W? 


DELTAT=1 ./2500./4.  'SAMPLE  INTERVAL 

NPTS = FLOAT ( NREC ) *NS I ZE 
TIMMAX=FLOAT ( NPTS ) *DELTAT 
PRINT  *,  '  ' 

PRINT  *,  'DATA  RANGE  IS  0  THRU ' , TIMMAX , ’  (SEC),  DELTA= ' , DELTAT , '  (SEC)’ 
PRINT  *,  'INPUT  DESIRED  DATA  MIN  AND  MAX  IN  SECONDS’ 

READ  *,  DM I N , DMAX 
PRINT  *,  '  ' 

PRINT  *,  'INPUT  PLOT  TIME  AXIS  MIN,  MAX  AND  LABEL  INCREMENT  IN  SECONDS' 
READ  *,  TM IN, TMAX, TDEL 
PRINT  *,  '  ' 


inuUU  «-  UUU  UUU 
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CONTINUE 

- OPEN  THE  FILES,  NAMING  CONVENTION  R _ P_C _ .DAT 


I PLOT3 1 
DO  K=1 , NCHAN 


CHANNO=K 
I UNIT® 1 0 

ENCODE ( 1 2 , 1 0 , F I LNAM )  RUNNO , PASSNO , CHANNO 
)  FORMAT( 'R' ,12, 'P' ,11 , ’C',I2, * .DAT' ) 

FI LNAM ( 1 3 ) =0 

OPEN ( UNIT® IUNIT , STATUS®  *  OLD ' , FI LE=FI LNAM, FORM® 


'UNFORMATTED* ) 


READ  IN  THE  DATA 


N=0 

DO  NREC® 1 ,4 

READ( IUNIT, END® 999)  ( BUFFER ( I ) , I  =  1 , NS  I ZE ) 

DO  1=1 , NS IZE 
N=N+ 1 

A=BUFFER( I ) 

Y ( N) =A/409 .5-5 
END  DO 
END  DO 

CALL  CLOSE ( IUNIT) 

PLOT  THE  DATA 
I LAST=0 

I F ( K . EQ .14)  I  LAST® 1 
I F( I  PLOT . EQ . 4 )  I  LAST® 1 

CALL  PLCHAN ( I  LAST , I  PLOT , RUNNO , PASSNO , CHANNO , N , X , Y ) 
I PLOT® I PLOT+ 1 
I F ( I  PLOT . EQ . 5 )  I  PLOT® 1 
END  DO 
C 

999  CALL  EXIT 
END 


G  -  5 
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_DRB0 : [ MAC I E . TM ] PLCHAN . FOR ; 1 4 


PLCHAN . FOR  PLOTS  ONE  CHAN  OF  DATA  (4/PG) 


SUBROUT I NE  PLCHAN { I  LAST , I PLOT , I  RUN , I PASS , I CHAN , NPT , X , Y ) 


COMMON  I START, ISTOP,TMIN,TMAX,TDEL 
REAL  X ( 1 ) ,Y(1 ) 

CHARACTER* 31  TITLAB 
I F ( I PLOT . EQ. 4 )  I LAST= 1 


-SET  UP  X  AXIS 


XMIN=TMIN 
XMAX=TMAX 
XRANGE = XMAX - XM I N 
NX=XRANGE/TDEL 
XDEL=TDEL 
XSPACE=8000 . 
XMID=XSPACE/2 . 
XSTART= 1500. 


! X  AXIS 
! X  AXIS 
! X  AXIS 
! X  AXIS 
! X  AXIS 
! X  AXIS 
!  X  AXIS 
! X  AXIS 


MINIMUM 

MAXIMUM 

RANGE 

*  INCREMENTS 
LABEL  INCREMENT 
SPACE 
MIDPOINT 
START  POINT 


-SET  UP  THE  Y  AXIS 


YMIN=-5 . 


! Y  AXIS  MINIMUM 


YMAX=5 . 

YRANGE = YMAX - YM I N 
NY=2 

YDEL= YRANGE/FLOAT ( NY ) 

YSPACE* 1200. 

YMID=YSPACE/2. 

YSTART=7600 . - ( YSPACE+400 . )*FLOAT( IPLOT) 


! Y  AXIS  MAXIMUM 
! Y  AXIS  RANGE 


! Y  AXIS  #  INCREMENTS 
! Y  AXIS  LABEL  INCREMENTS 
! Y  AXIS  SPACE 
! Y  AXIS  MIDPOINT 
! Y  AXIS  START  POINT 


INITIALIZE  THE  PLOTTTING 


I F ( IPLOT. EQ. 1 )  THEN 

PRINT  *,  'PLOT  TO  IPF  FILE  ONLY(1)/TO  TERMINAL  ONLY ( 2 ) /BOTH? ( 3 ) ' 


READ  *,  I OPT  I  ON 
CALL  BF I L ( I OPT  ION ) 
CALL  BJOB 
CALL  BFRM( 1 ) 


! INITIALIZES 
! WANT  11X8.5 


END  IF 


- SET  DATA  SPACE  AND  GRID 


CALL  SWRKS  (  XSTART ,  YSTART  ,  XSPACE  ,  YSPACE  ,  0  .  )  '.SET  UP  WORK  SPACE 
CALL  DRECG(NX, NY*2,0, 0,-100. ,-100. )  ! MAX E  RECTANGULAR  GRID 

CALL  SDATP(XMIN,YMIN, XRANGE, YRANGE)  !SET  UP  DATA  SPACE 


- WRITE  TITLE  ON  PLOT 


I F ( IPLOT. EQ. 1 )  THEN 
CALL  SSPC ( 300 . ,300. ) 

CALL  SJST ( 0 , 0 ) 

TITLAB= ' **EXPERIMENT  TITLE** ' //CHARI 
CALL  LSTRG(TITLAB, 950. , 1600.  ) 

T I TLAB=  '  RUN  -  PASS  ’ //CHARO) 

CALL  LSTRG(TITLAB, 1  700.  ,  1 300.  ) 

CALL  LNUMI( IRUN, 2900. , 1 300.  ) 


'.SET  CHARACTER  SIZE 
!LT, BOTTOM  JUSTIFY 


IWRITE  TITLE 


1WRITE  TITLE 
'.WRITE  RUN  ID  NUMBER 


UUU  UUU  <X>  UUU  r-  U  U  U  UU 
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CALL  LNUMI (IPASS, 5900. ,1300. ) 
END  IF 


! WRITE  PASS  NUMBER 


-WRITE  CHAN  NUMBER  ON  PLOT 


CALL  SSPC(300. ,300. ) 

CALL  SJST ( 0 , 0 ) 

TITLAB= ' CHAN ' //CHAR( 0 ) 

CALL  LSTRG(TITLAB, 8100. ,650. ) 
CALL  SJST( 1,1) 

CALL  LNUMI (ICHAN, 8700., 400.) 


! SET  CHARACTER  SIZE 
!LT, BOTTOM  JUSTIFY 


! WRITE  CHAN 
! CENTER  JUSTIFY 
! WRITE  CHAN  NUMBER 


-LABEL  THE  X  AXIS 


IF( ILAST.EQ. 1 )  THEN 
CALL  SSPC( 300 . , 300. ) 

CALL  SJST ( 1,1) 

XSP I NC=XSPACE/FLOAT ( NX ) 

XVAL=0 . 

VALUE=XMIN 
DO  6  1=1 ,NX+1 
I VALUE=VALUE* 1 000 
CALL  LNUMI ( I VALUE, XVAL, -350. ) 
VALUE=VALUE+XDEL 
XVAL =XVAL+XSP INC 
CONTINUE 

TITLAB= ' TIME  1/4  SPEED  (MSEC) ' //CHAR( 0 ) 
CALL  LSTRG ( T I TL AB , XM I D , 

TITLAB=' VOLTAGE  (VOLTS) 

CALL  SJST ( 1,1) 

CALL  SROT ( 0 . ,90. ) 

YVAL= ( 7600 . -YSTART ) /2 . 

CALL  LSTRG (TITLAB, -1250 
CALL  SROT ( 0 . ,0. ) 

END  IF 


!  SET  CHARACTER  SIZE 
! CENTER  JUSTIFY 
!  Y  SPACE  INCREMENT 
!  INITIAL  X  SPACE 
!  INITIAL  X  VALUE 


•WANT  MILLESEC  LABEL 
! WRITE  X  LABEL 
!GET  NEXT  X  VALUE 
!GET  NEXT  X  SPACE 


-750.  ) 

' / / CHAR ( 0 ) 


! MAKE  X  AXIS  LABEL 


, YVAL) 


!  CENTER 
!  ROTATE 
!  FIGURE 
1MAKE  Y 
!  ROTATE 


JUSTIFY 

90 

OUT  CENTER 
AXIS  LABEL 
BACK 


-LABEL  THE  Y  AXIS 


CALL  SSPC ( 300 . ,300. ) 

CALL  SJST( 2 , 1 ) 

YSP I NC=YSPACE/FLOAT ( NY ) 
YVAL=0 . 

VALUE=YMIN 
DO  7  1=1 , NY ♦ 1 
I D= VALUE 

CALL  LNUMI ( ID, -1 00 ., YVAL! 
VALUE=VALUE+YDEL 
YVAL= YVAL  ■►YSP  I NC 
CONTINUE 


!  SET  CHARACTER  SIZE 
!RT,  CENTER  JUSTIFY 
!Y  SPACE  INCREMENT 
! INITIAL  Y  SPACE 
! INITIAL  Y  VALUE 


.'GET  INTEGER  LABEL 
'.WRITE  Y  INTEGER  LABEL 
! GET  NEXT  Y  VALUE 
! GET  NEXT  Y  SPACE 


-PLOT  THE  DATA 


CALL  SWRKS (XSTART, YSTART, XSPACE, YSPACE, 0. )  ! SET  UP  WORK  SPACE 
CALL  SDATP ( XMI N , YMI N , XRANGE , Y RANGE '  ! SET  UP  DATA  SPACE 
N=  I  STOP-  I  START*  1 

CALL  DRECP(N,X( ISTART) ,Y( ISTART) ,0,0,0)  !PLOT  DATA  POINTS 


- CLOSE  PLOTTING  IF  DONE 
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I F ( I  LAST . EQ . 1 
CALL  EFRM 
CALL  EJOB 
CALL  EFIL 
END  IF 

RETURN 


)  THEN 
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LISTINGS  OF 
DOWNSAMP . FOR 
LISTHEAD. FOR 


H- l/H-2 
Reverse  Blank 
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_DRB0 : [MAC I E . TM ] DOWNSAMP . FOR; 58 

DOWNSAMP.FOR  READS  A  FOREIGN  MAG_TAPE  MADE  BY  THE  A2D  PROGRAM. 

IT  THEN  DOWN  SAMPLES  AND  WRITES  ALL  CHANNELS  TO 
A  DATA  FILE  FOR  FUTURE  MERGING.  ALL  LEFT  OVER  DATA 
FOR  A  GROUP  IS  SAVED  AND  LATER  APPENDED  TO  THE 
FOLLOWING  GROUP.  FOR  PASS  2,  THE  GARBAGE  DATA  DUE 
TO  ALIGNMENT  IS  THROWN  AWAY. 


PARAMETER  NA2DCH*14  '.NUMBER  OF  CHANNELS 

PARAMETER  NISIZE=*500  !  NUMBER  OF  WORDS/CHANNEL  IN  AN  INPUT  RECORD 

PARAMETER  NOSIZE=1024  ! NUMBER  OF  WORDS/CHANNEL  IN  AN  OUTPUT  RECORD 

PARAMETER  NDIM=NA2DCH*NIS IZE*2 

BYTE  F I LNAM (10), HEADB ( ND I M ) 

INTEGER* 2  IOSB ( 4 ) , HEAD  I  2 ( NDIM/2 ) 

INTEGER*2  BUF1 ( NA2DCH , NI S I ZE ) , BUF2 ( NOS  I ZE , NA2DCH ) 

INTEGER*4  ICHAN, IRETCODE , SYS$QIOW , RUNNO , PASS , HEADI 4 ( NDIM/4 ) 

DIMENSION  HEADFP( NDIM/4) 

EXTERNAL  10$  READLBLK , I0$_REWIND , I0$_SK I PF I LE , IO$_SK I  PRECORD 
EQUIVALENCE  THEADB , HEAD  I  2 , HEADI 4 , HEADFP ) 

NCHAN=NA2DCH  .'NUMBER  OF  CHANNELS 

NWORDS=NCHAN*NI S I ZE  ! NUMBER  OF  1*2  WORDS/BLOCK 

NBYTES=NWORDS*2  'NUMBER  OF  BYTES/BLOCK 

NOUT=NOS I ZE  ! SAMPLES  IN  OUTPUT  BUFFER/CHAN 

FIND  OUT  WHAT  WE  ARE  PROCESSING 

PRINT  *,  'ENTER  RUN  IDENTIFICATION  NUMBER' 

READ  *,  RUNNO 

PRINT  *,  'ENTER  PASS  NUMBER' 

READ  *,  PASS 

I GROUP = RUNNO- ( RUNNO/ 10*10) 

PRINT  *,  'ENTER  DOWN  SAMPLE  INCREMENT,  SAVE  EVERY?’ 

READ  *,  I  PICK 
I F ( IPICK.LT. 0)  GO  TO  1 

PRINT  *,  'ENTER  NUMBER  OF  RECORDS  TO  LOOK  AT?' 

READ  *,  NRECMAX 
I F ( NRECMAX . LT . 0 )  GO  TO  2 
NS AMPMAX = NRECMAX  *  N I S I Z E 

PRINT  *,  'ENTER  MAXIMUM  NUMBER  OF  SAMPLES?' 

READ  *,  NSAMPMAX 

PRINT  *,  'ENTER  RECAT  START  SAMPLE  NUMBER?’ 

READ  *,  I  RECAT 
I F ( IRECAT.LT. 1 )  GO  TO  3 

ISTARTREC=  I  RECAT/N I S  I  ZE  '.START  RECORD 

I  STARTS AMP = I  RECAT- I  START REC*N I S I ZE  ! START  SAMPLE 

CHECK  ON  PASS  AND  GROUP,  SETUP  ACCORDINGLY 


I  F ( PASS . EQ . 1  )  THEN 
IF< IGROUP. EQ. 1 )  THEN 
N  =  0 


!  PASS  1 

!  OUTPUT  BUFFER  COUNTER 

H  -  3 
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! GET  THE  DATA  TO  APPEND 


NSAMPLES= 1  ! NUMBER  OF  SAMPLES 

ELSE 

I0LDRUN=RUNN0-1 

ENCODE (  9 , 1  0  ,  F I LNAM )  IOLDRUN,PASS  ! GET  THE  DATA  TO  APPENI 
FORMAT ( ’R’ , 12, 'P' , II , ' .EXT' ) 

FI  LNAM (  1  0  )  =  0 

OPEN ( UN I T= 1 0 , STATUS  =  'OLD'fFILE=FI LNAM , FORM= ' UNFORMATTED '  ) 
READ (10)  NEXTST , NS  I ZE , LAST  I P I CK 

READ( 10)  NLEFT, ( ( BUF2 ( I ,J) , 1=1 , NLEFT) ,J=1 , NA2DCH ) 

CLOSE (UNIT=1 0 ) 

I STARTSAMP= I STARTSAMP+ NEXTST- 1  ! START  SAMPLE 

N=NLEFT  ! OUTPUT  BUFFER  COUNTER 

NSAMPLES=NLEFT*IPICK+IPICK  ! NUMBER  OF  SAMPLES 

I F ( NS  I ZE . NE . NOS  I ZE )  STOP  'OUTPUT  BUFFER  MISMATCH' 
IF(LASTIPICK.NE. I PICK)  STOP  'DOWNSAMPLE  INCREMENT  MISMATCH' 
END  IF 
END  IF 


I F ( PASS . EQ • 2 )  THEN 


.'PASS  2 


! GET  THE  DATA  TO  APPEND 


I F ( I GROUP . EQ . 1 )  THEN 

N=0  ! OUTPUT  BUFFER  COUNTER 

NSAMPLES= 1  ! NUMBER  OF  SAMPLES 

ELSE 

IOLDRUN=RUNNO-1 

ENCODE (9, 10, FI LNAM)  IOLDRUN,PASS  ! GET  THE  DATA  TO  APPEN 
FI  LNAM (  1  0  )  =  0 

OPEN ( UNIT= 1 0 , STATUS3 ' OLD' , FI LE= FI LNAM, FORM= ' UNFORMATTED ' ) 
READ(10)  NEXTST, NS I ZE , L ASTI  PICK 

READ( 10)  NLEFT, ( ( BUF2 ( I , J) , 1=1 , NLEFT) , J=1 , NA2DCH ) 

CLOSE ( UNIT= 1 0 ) 

ISTARTSAMP= ISTARTSAMP+NEXTST- 1  ! START  SAMPLE 

N=NLEFT  ! OUTPUT  BUFFER  COUNTER 

NS AMPLES  =  NLEFT* I  PICK  + I P I CK  ! NUMBER  OF  SAMPLES 

IF(NSIZE.NE. NOSIZE)  STOP  'OUTPUT  BUFFER  MISMATCH' 

I F ( LAST  I P I CK . NE . I P I CK )  STOP  'DOWNSAMPLE  INCREMENT  MISMATCH 
END  IF 
END  IF 

NSAMPMAX=NSAMPMAX+NSAMPLES- 1 

PRINT  *,  'LEFT  OVER  SAMPLES  ' , NSAMPLES 

PRINT  *,  'NUMBER  OF  RECORDS  TO  PROCESS  ' , NRECMAX 

PRINT  *,  'FINAL  MAXIMUM  NUMBER  OF  SAMPLES  ' , NSAMPMAX 


-ASSIGN  THE  9  TRACK  TAPE  DRIVE  (6250)  AND  MAKE  SURE  IT  IS  REWOUND 


CALL  SYS$ASS I GN ( ' MAG_TAPE ' , ICHAN, , ) 

I RETCODE  =  SYS$QIOW( ,%VAL( ICHAN) , IO$_REWIND, IOSB, 
IF  ( .NOT. IRETCODE)  STOP  'REWIND  ERROR’ 


-SKIP  FILES  IF  REQUESTED 


PRINT  *,  'HOW  MANY  FILES  DO  YOU  WANT  TO  SKIP?' 

READ  *,  NSKIP 
IF(NSKIP.LT.O)  THEN 

PRINT  *,  'YOU  MUST  ONLY  GO  IN  THE  FORWARD  DIRECTION' 
PRINT  *,  'THE  NUMBER  OF  FILES  MUST  BE  POSITIVE' 

GOTO  4 


UUU  UUU  UUU^  U  U  U  ir> 


DRBO : [ MAC I E . TM ] DOWNSAMP . FOR ; 58 


END  IF 

I RETCODE=SYS$Q I OW ( , %VAL( ICHAN) , IO$_SKIPFILE , IOSB, , ,%VAL(NSKIP) , , , 
IF  ( .NOT. IRETCODE)  STOP  'SKIP  FILE  ERROR' 

I F ( IOSB ( 2 ) . NE . NSKI P )  THEN 
PRINT  20,  ( IOSB( I ) , 1=1 ,4) 

20  FORMAT (2X, ' IOSB  ',4(Z4.4,X)) 

STOP  'SKIPPING  FILE  ERROR' 

END  IF 

-READ  IN  THE  HEADER  AND  PRINT  OUT 

I RETCODE=SYS$Q I OW ( ,%VAL( ICHAN) , IO$_READLBLK , IOSB, , , 

1  HEADB , % VAL ( NBYTES ),,,,) 

IF  ( .NOT. IRETCODE)  STOP  'READING  HEADER  ERROR’ 

IF( IOS8(2) .NE. NBYTES)  THEN 
PRINT  20,  ( IOSB ( I ) , 1=1 , 4) 

STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  HEADER' 

END  IF 

CALL  L I STHEAD ( HEADB , HEAD I  2 , HEAD  1 4 ) 

HEADFP (15) =HEADFP (15) *FLOAT ( I  PICK )  ! UPDATE  SAMPLE  INTERVAL 

-SKIP  THE  APPROPRIATE  NUMBER  OF  RECORDS 

NSK I P= I STARTREC 
I F ( NSK I P . GT . 0 )  THEN 

IRETCODE=SYS$QIOW ( ,%VAL( ICHAN) , 10$  SKIPRECORD, IOSB, , , 

1  %VAL(NSKIP) , , , , ,7 

IF  ( .NOT. IRETCODE)  STOP  'SKIP  RECORD  ERROR' 

I F ( I OSB ( 2 ) . NE . NSK I P )  THEN 
PRINT  20,  ( I OSB ( I ) , 1=1 , 4 ) 

STOP  'SKIPPING  RECORD  ERROR' 

END  IF 
END  IF 

NREC I  N=NSK  I P  .'NUMBER  OF  INPUT  RECORDS  (TOTAL) 

NRECOUT  =  0  '.NUMBER  OF  OUTPUT  RECORDS 

ISAVE= ISTARTSAMP  ! NEXT  POINT  IN  BUFFER  TO  SAVE 

I F ( I  SAVE . GT . N I S I ZE )  STOP  'STARTING  POINT  >  RECORD  SIZE' 

-OPEN  THE  OUTPUT  FILE,  R _ P_.DAT 

EN<"ODE(  9 , 30  ,  FILNAM)  RUNNO,PASS 
FORMAT ('R',I2,'P',I1,'. DAT ' ) 

F I LNAM( 1 0 ) =0 

OPEN ( UNIT= 1 1 , STATUS3 ' NEW ' , F I LE=F I LNAM , FORM= ' UNFORMATTED ' ) 

PRINT  40,  (FILNAM(J) ,J=1 ,9) 

FORMAT  (2X, 'OUTPUT  FILE:  ',9AU 
WRITE! 11)  (HEADB( I ), 1=1 , NBYTES) 

-READ  THE  DATA  IN  A  RECORD  AT  A  TIME,  LOOK  FOR  THE  EOF 

CONTINUE 

I RETCODE=SYS$QIOW( ,%VAL( ICHAN) , IO$_READLBLK , IOSB, , , 

1  BUF1 , %VAL( NBYTES ),,,,) 

IF  (. NOT . IRETCODE)  STOP  'ERROR  READING  DATA  RECORD' 

I F ( IOSB( 1 ) .EQ. ’0870'X)  THEN 
PRINT  *,  'AT  EOF’ 

NS AMP LEFT  =IPICK*N*IPI CK- I  SAVE 
GO  TO  7 
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END  IF 

I F ( I OSB { 2 ) . NE . NB YTES )  THEN 
PRINT  20,  ( IOSB( I ) , 1*1 ,4) 

PRINT  * , ' PROBLEM  SKIPPING  ',NSKIP,  '  RECORDS' 
STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  DATA' 

END  IF 

NRECIN=NRECIN+ 1 
C 


C - EXTRACT  THE  DATA  POINTS  I  WANT  TO  SAVE  AND  DUMP  FULL  BUFFERS 

C 

6  CONTINUE 


N=N+ 1 

DO  J=1 , NA2DCH 

BUF2 ( N , J ) =BUF1 (J, ISAVE) 

END  DO 

IF(N.EQ.NOUT)  THEN 

WRITE ( 11)  ( ( BUF2 ( I , J ) , 1=1 , NOUT ) ,J=1 , NA2DCH ) 
NRECOUT=NRECOUT+ 1 
N=0 
END  IF 

ISAVE= ISAVE+ I  PICK 
NSAMPLES=NSAMPLES+IPICK 
I F ( NSAMPLES . GT . NSAMPMAX )  THEN 
I SAVE=NSAMPLES -NSAMPMAX 
NSAMPLEFT=N*IPICK+( I  PICK- ISAVE) 
NSAMPLES=NSAMPMAX 
GO  TO  7 
END  IF 

IF( ISAVE. LE.NISIZE)  GO  TO  6 
ISAVE= ISAVE-NISIZE 
GO  TO  5 
C 


C - AT  EOF  FILE,  CLOSE  FILES 

C 

7  CONTINUE 

CLOSE ( UNIT* 1 0 ) 

CLOSE! UNIT* 1 1 ) 

NLEFT=N 

C 

C - SAVE  THE  EXTRA  DATA  FOR  APPENDING  TO  THE  FRONT  OF  THE  NEXT  GROUP 

C 

ENCODE ( 9 , 50 , F I LNAM )  RUNNO,PASS 
50  FORMAT! ’R' , 12,  'P'  ,  I  1  ,  '  .EXT'  ) 


FILNAM! 1 0 ) =  0 

OPEN ( UNIT* 1 0 , STATUS3 ' NEW ' , F I LE= F I LNAM , FORM= ' UNFORMATTED ’ ) 
WRITE! 10)  ISAVE, NOUT, IPICK  ! NEXT  START,  SIZE,  INC 

WRITE! 10)  NLEFT , ( ( BUF2 ( I ,J) , 1=1 , NLEFT ) ,J=1 , NA2DCH ) 

CLOSE ( UN  I T= 1 0 ) 

C 

C - PRINT  THE  BOOK  KEEPING  INFORMATION 

C 

PRINT  *,  'READ  IN  ' , NREC IN,'  RECORDS  (SKIPPED  , NSK IP,')' 
PRINT  *,  'WROTE  OUT  ' , NRECOUT , '  RECORDS' 

PRINT  *,  'BUFFER  SIZES  ARE:  IN=  510,  CUT=  ’ , NCUT 
»  R I  NT  *,  'NUMBER  OF  SAMPLES  LOOKED  AT:  ', NSAMPLES 
PRINT  60 ,  ( FI LNAM(  I  1  ,  I  =  ’  ,  9  1 
60  FORMAT!  2X/2X' EXTRA  FILE:  ',9AM 

PRINT  *,  ’NEXT  START  OFFSE"  IS:  '  .ISAVE 

H-6 
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*  *  *  ' 

CALL  EXIT 
END 


'  ,  NLEFT 
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LISTHEAD. FOR  LISTS  OUT  THE  HEADER  INFORMATION  FOR  A 

SPECIFIED  TAPE. 


c 

HEADB( 1-2) 

HEADI 2 ( 1 ) 

ANALOG 

TAPE  NUMBER 

c 

HEADB ( 3 ) 

HEAD 12(2) 

PASS  NUMBER  (1,2  OR  3 ) 

c 

HEADB ( 4 ) 

ft 

NUMBER 

OF  CHANNELS 

14  OR  24 

c 

HEADB ( 5 ) 

HEADI 2 ( 3 ) 

DIGITIZING  MONTH 

c 

HEADB ( 6 ) 

ft 

DIGITIZING  DAY 

c 

HEADB ( 7 ) 

HEAD 12(4) 

DIGITIZING  YEAR 

c 

HEADB ( 8 ) 

m 

EXPERIMENT  TIME 

CODE  START 

HOUR 

c 

HEADB ( 9 ) 

HEAD 12(5) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

c 

HEADB (10) 

M 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

c 

HEADB ( 1 1-30) 

HEADI 2 (6—1 5 ) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

c 

HEADB ( 31 ) 

HEADI 2 (16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

c 

HEADB (32) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

c 

HEADB (33) 

HEADi  (17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

c 

HEADB ( 34) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

c 

HEADB ( 35) 

HEADI 2 ( 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

c 

HEADB ( 36) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

c 

HEADB (37) 

HEADI 2 ( 19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

c 

HEADB ( 38) 

1* 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

c 

HEADB ( 39) 

HEADI 2 (20) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

c 

HEADB (40) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

10 

c 

HEADB ( 4 1 ) 

HEADI 2(21  ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

c 

HEADB ( 42 ) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

c 

HEADB (43) 

HEADI 2(22) 

ANALOG 

CHANNEL 

IN 

POSITION 

13 

c 

HEADB (44 ) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

c 

HEADB (45) 

HEADI 2 (23) 

ANALOG 

CHANNEL 

IN 

POSITION 

15 

c 

HEADB (46) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

c 

HEADB ( 47 ) 

HEADI 2 (24) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  7 

c 

HEADB (48) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

c 

HEADB (49) 

HEADI 2 ( 25 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

19 

c 

HEADB (50) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

c 

HEADB ( 51 ) 

HEADI 2 ( 26 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

21 

c 

HEADB (52) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

c 

HEADB ( 53 ) 

HEADI 2(27) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

c 

HEADB (54) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

c 

HEADB( 55) 

HEADI 2 ( 28) 

RUN  IDENTIFICATION  NUMBER 

c 

HEADB ( 56) 

ft 

ft 

c 

HEADB( 57-60 ) 

HEADFP( 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC ) 

C 

C - 

SUBROUTINE  LI STHEAD ( HEADB , HEAD  I  2 , HEAD  I  4 ) 


BYTE  HEADB ( 1 ) 

INTEGER* 2  HEAD I  2 ( 1 ) 

I NTEGER*4  HEADI 4  (  1  ) 

PRINT  OUT  THE  ALL  HEADER  INFO 

PRINT  1 ,  ( HEADB ( I ) , 1*11 , 30) 

FORMAT ( X , '  ***  EVENT  DESCRIPTION:  ’  , 20 A 1  ,  '  ***’) 
PRINT  2,  HEAD  I  2 ( 1 ) 

FORMAT (X/X,’  ANALOG  TAPE  NUMBER:  '  , 4 X , 14) 


PRINT  3,  HEAD  12(28) 
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3  FORMAT(X, '  RUN  IDENTIFICATION  NUMBER:  ’,6X,I2) 

C 

PRINT  4,  HEADS ( 3 ) 

4  FORMAT (X,'  PASS  NUMBER:  ',7X,I1) 

C 

PRINT  5,  HEADB ( 8 )  , HEADB ( 9 ) , HEADB (10) 

5  FORMAT ( X , '  START  TIME  CODE:  ' , 1 2 , ' : ' , I  2 , ' : ’ , I  2  ) 

C 

PRINT  6,  HEADB ( 5 )  , HEADB (  6 )  , HEADB ( 7 ) 

6  FORMAT (X,'  DATE:  ,,I2,'/’,I2,'/'I2) 

C 

NCHAN=HEADB { 4 ) 

C 

PRINT  7 

7  FORMAT ( X/X , '  POSITION  :  CHANNEL  POSITION  :  CHANNEL', 

1  X/X,'  -  - ') 

NHALF=NCHAN/2 
DO  1=1 , NHALF 
K= I +NHALF 

PRINT  8,  I ,HEADB( 1+30) , K , HEADB ( K+ 30 ) 

8  FORMAT ( X , 4X , 1 2 , 3X , '  :  ' , 3X , 1 2 , 2X , 5X , 3X , 1 2 , 3X , ’  :  ’,3X,I2) 

END  DO 

C 

RETURN 
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MERGEMT . FOR  MERGES  TOGETHER  DIGITIZED  DATA  FROM  PASSES  1  AND  2  AND 

WRITES  THESE  TO  TAPE.  REDUNDANT  CHANNELS  ARE  DISCARDED. 

A  FOREIGN  MAGTAPE  IS  PRODUCED  WITH  ONE  IDENTIFICATION 
HEADER  RECORD  FOLLOWED  BY  DATA  RECORDS,  1024*24  WORDS  LONG. 
THE  DATA  ORDER  IS  1024  SAMPLES  FOR  EACH  CHANNEL  1-24. 

THE  A/D  TAPE  CHANNEL  FOR  EACH  POSITION  IS  FOUND  IN 
THE  HEADER,  THE  ORDER  IS  1,2,3,4,5,6,7,8,9,10,11,12, 
14,15,16,17,18,19,20,21,22,23,24,25  (NO  13). 

1)  LOG  ON  TO  VAX 

2)  MOUNT  A  TAPE  WITH  A  WRITE  RING  ON  MFAQ : 

3)  EXECUTE  THE  MERGEMT.COM  COMMAND  FILE,  THIS  WILL: 

A.  INITIALIZE  THAT  TAPE  TO  6250  BPI  (NAME  R _ ) 

B.  OPEN  THE  TWO  DOWNSAMPLED  FILES  FOR  PASSES  1  AND  2 

C.  READ  AND  MERGE  THE  TWO  HEADER  RECORDS 

D.  WRITE  THE  NEW  HEADER  RECORD  TO  TAPE 

E.  FOR  ALL  DATA  RECORDS:  READ  AND  MERGE  ALL  DATA  RECORDS 

AND  WRITE  THEM  TO  TAPE 

F.  MAKE  SURE  BOTH  FILES  AT  THE  SAME  POINT 

G.  CLOSE  ALL  FILES 

H.  WRITE  EOF  MARKINGS  ON  OUTPUT  TAPE 

I.  DISMOUNT  THE  TAPE 


PARAMETER  NADC=24  '.NUMBER  OF  FINAL  A/D  CHANNELS  USED 

PARAMETER  NBSIZE=10  24  '.NUMBER  OF  WORDS  IN  ONE  BUFFER/CHANNEL 

PARAMETER  NDIM= 14*500*2, NDIM2=NDIM/2 , NDIM4 -NDIM/ 4 

BYTE  HBP 1 ( NDIM) , HBP2 ( NDIM) ,HBM(NDIM) ,FILNAM( 1 0 ) , EVENTDESC ( 20 ) 

INTEGER *2  IOSBMT ( 4 ) 

INTEGER*2  HI2P1 ( NDIM2 ) , HI 2P2 ( NDIM2 ) ,HI2M(NDIM2) 

INTEGER* 2  BUFP1 (NBSIZE, 14) , BUFP2 ( NBS I ZE , 14) , BUFM ( NBS I ZE , 2 4 ) 

I NTEGER*4  HI4P1 ( NDIM4 ) , H I 4P2 ( ND IM4 ) ,HI4M(NDIM4) 

INTEGER*4  S YS $Q I OW , WR I NORET , WEOFNORET , RUNNO 
DIMENSION  HFPP1 ( NDIM4 ) , HFPP2 ( NDIM4 ) , HFPM ( ND I M4 ) 

EQUIVALENCE  ( HBP 1 ,HI2P1 ,HI4P1 ,HFPP1 ) , ( HBP2 , H I 2P2 , H I 4P2 , HFPP2 ) 
EQUIVALENCE  ( HBM , H I 2M , H I 4M , HFPM ) 

EQUIVALENCE  (BUFP1 , BUFM ) , (BUFP2,BUFM( 1,15)) 


-SET  UP  I/O  CODES  FOR  MAGTAPE 


EXTERNAL  I 0$_WR I TELBLK , IO$_REWIND, IO$_WRITEOF, IO$_SKIPFILE 
NPT= NBSIZE 


-GET  THE  RUN  IDENTIFICATION  INFORMATION 


PRINT  *,  'ENTER  RUN  IDENTIFICATION  NUMBER’ 
READ  *,  RUNNO 


OPEN  THE  FILES  AND  GET  THE  HEADERS 


ENCODE ( 9 , 1 0 , F I LNAM ) , RUNNO 
FORMAT ( 'R',I2,'P1.FIL') 

F I LNAM { 1 0 ) =0 

OPEN ( UNI T= 1  1  , STATUS = ' OLD'  , FI LE  =  F I LNAM, FORM  = ’ UNFORMATTED '  > 
READ ( 1 1 )  HBP 1 

CALL  L I STHEAD (HBP1  , H I  2 P 1  ,  H  I  4  P  "  ) 

ENCODE ( 9 , 20 , F I LNAM ) , RUNNO 


>  .  > .  ■* , 
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20  FORMAT ('R',I2,'P2.FIL') 

FILNAM( 1 0 ) *0 

OPEN ( UN I T= 1 2 , STATUS  = ' OLD ' , F I LE=  F I LNAM , FORM® *  UNFORMATTED '  ) 
READ (12)  HBP2 

CALL  LISTHEAD(HBP2,HI2P2,HI4P2) 


-FORM  THE  NEW  HEADER 

IF(HI2P1 (28) .NE.HI2P2<28) )  STOP  'DIFFERENT  RUNS' 

IF(HBP1 (3) .NE. 1 )  STOP  'FIRST  FILE  IS  NOT  PASS  1' 

IF(HBP2 ( 3 ) . NE. 2 )  STOP  'SECOND  FILE  IS  NOT  PASS  2' 

IF(HBP1 (61 ) .NE. 1 )  STOP  'FIRST  FILE  IS  NOT  FILTERED' 
IF(HBP2(61 ) .NE. 1 )  STOP  'SECOND  FILE  IS  NOT  FILTERED' 

DO  1=1 ,60 

HI 2M( I ) =HI 2P1 ( I ) 

END  DO 

IF(HI2P1 (1 ) . NE . H I 2P2 ( 1 ) )  THEN 

PRINT  *,  'TAPE  NUMBERS  DO  NOT  MATCH,  ENTER  TAPE  NUMBER:' 
READ  *,  HI 2M( 1 ) 

END  IF 

HBM( 3 ) =3  ! MERGED  CASE  IS  PASS  3 

HBM( 4 ) =24  ! ALL  24  CHANNELS 

PRINT  *,  'ENTER  MERGING  DATE:  MONTH, DAY' 

READ  *,  HBM( 5 ) ,HBM(6) 

ENCODE (20,30, EVENTDESC )  RUNNO 
FORMAT ( 2X , '  RUN  ' , 12) 

DO  1=1,20 

HBM( 1+10) =EVENTDESC ( I ) 

END  DO 
N=4  5 

DO  1=1,14 

IF( I.EQ.2.0R. I .EQ.4.0R. I.EQ. 10.OR. I .EQ. 13)  GOTO  1 
HBM( N ) =HBP2 ( 1+30) 

N=N+  1 
CONTINUE 
END  DO 

CALL  LI STHEAD( HBM ,HI2M,HI4M) 

-ASSIGN  THE  TAPE  TO  LOGICAL  NAME  MAG_TAPE  AND  REWIND 
CALL  SYS$ASS I GN ( ' MAG_TAPE '  , I  CHAN, , ) 

I RETCODE=SYS$Q IOW ( ,%VAL( ICHAN) , IO$_REWIND, IOSBMT, . ) 

I F ( . NOT . I RETCODE )  THEN 

I F ( I OSBMT ( 1 ) . EQ . ' 1 A4 ' X )  STOP  'TAPE  DRIVE  IS  OFFLINE' 

PRINT  40 ,  ( IOSBMT ( I ) , 1=1 , 4 ) 

FORMAT ( 2X, ' I OSB:  ',4(X,Z4.4)> 

STOP  ' MAG_TAPE  REWIND  ERROR' 

END  IF 


- SKIP  FILES  IF  REQUESTED 

PRINT  *,  'HOW  MANY  FILES  DO  YOU  WANT  TO  SKIP?' 

READ  *,  NSKIP 
IF(NSKIP.LT.O)  THEN 

PRINT  *,  'YOU  MUST  ONLY  GO  IN  THE  FORWARD  DIRECTION’ 
PRINT  *,  ’THE  NUMBER  OF  FILES  MUST  BE  POSITIVE’ 

GOTO  2 
END  IF 


/..‘.V.  /.  A/ V. ••  .-  .•  r.  f.r.r  >■. r. 
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IRETCODE=SYS$QIOW( , %VAL( ICHAN) , IO$_SKIPFILE, IOSBMT, , , %VAL ( NSKIP ) , 
IF  ( .NOT. IRETCODE)  STOP  'SKIP  FILE  ERROR' 

IF( IOSBMT { 2 ) .NE. NSKIP)  THEN 
PRINT  40,  ( IOSBMT (  I )  ,  I  *1  , 4  ) 

PRINT  *, 'PROBLEM  SKIPPING  ', NSKIP,  '  FILES’ 

STOP  'SKIPPING  FILE  ERROR' 

END  IF 
C 

C - DUMP  THE  HEADER  TO  TAPE 

C 

NBYTES =ND I M 

I RETCODE=SYS$QIOW( ,%VAL( ICHAN) , IO$_WRITELBLK , IOSBMT , 

1  , , HBM, %VAL( NBYTES ) , , , ,) 

IF( .NOT. IRETCODE)  STOP  'ERROR  MAGTAPE  DUMPING  HEADER' 

NREC= 1  ! RECORD  1  IS  HEADER 

PRINT  *,  'DUMPED  HEADER  IN  ' ,NREC 
C 


C - READ  IN  DATA  FOR  EACH  PASS,  SHIFT  DOWN  PASS  2  NEW  CHANNELS 

C 

NBYTES=NPT*24*2  ! TOTAL  # BYTES  PER  RECORD 

3  READ( 1 1 , END=4 )  ( ( BUFP 1 ( I , J ) , I  =  1 , NPT ) , J  =  1 , 1 4 ) 


READ( 1 2 , END=7 )  ( ( BUFP2 ( I ,J) , 1=1 ,NPT) , J= 1 , 14) 

N=  1  5 

DO  J  =  1  ,  14 

I F ( J . NE . 2 . AND . J . NE . 4 . AND . J . NE . 10. AND . J . NE .13)  THEN 
DO  1=1, NPT 

BUFM ( I , N ) =BUFP2 ( I , J ) 

END  DO 
N=N+ 1 
END  IF 
END  DO 
C 

C - DUMP  THIS  BUFFER  TO  TAPE 

C 

I RETCODE=SYS$QIOW ( ,%VAL( ICHAN) , IO$_WRITELBLK, IOSBMT, 

1  , ,BUFM, %VAL( NBYTES) ,,,, ) 

I F ( . NOT . I RETCODE )  THEN 
PRINT  *,  IRETCODE 
STOP  'MAG  TAPE  WRITE  ERROR’ 

END  IF 

I F ( IOSBMT ( 1 ) .NE. 1 )  THEN 
PRINT  40, ( IOSBMT(I ) , 1*1 ,4) 

END  IF 

NREC=NREC+1  '.INCREMENT  RECORD  NUMBER 

PRINT  *,  'DUMPED  RECORD  ', NREC , NBYTES 

I F ( IOSBMT ( 1 ) .EQ. ' 0878 ' X)  PRINT  *,  'SENSED  EOT  MARKER  AT  ' , NREC 
GO  TO  3 
C 


C - AT  EOF  CHECK  THE  OTHER  FILE 

C 

4  CONTINUE 

PRINT  *,  'AT  EOF  FOR  PASS  1  FILE' 

NLEFT  =  0 

5  READ (12, END=  6 )  ( ( BUFP2 ( I , J ) , I  *  1 , NPT ) , J = 1  , 1 4 ) 
NLEFT=NLEFT+ 1 

GO  TO  5 

6  CONTINUE 

PRINT  *,  'AT  EOF  FOR  PASS  2  FILE' 
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C 

7 


8 

9 


C 
C- 
C 
1  1 


1-6 


IF(NLEFT.NE.O)  PRINT  *,  'READ  ' , NLEFT, '  MORE  RECORDS’ 
GO  TO  11 


CONTINUE 

PRINT  *,  'AT  EOF  FOR  PASS  2  FILE' 

NLEFT=1 

READ( 1 1 , END=9 )  ( ( BUFP2 ( I ,J) , 1=1 ,NPT) ,J=1 , 14) 
NLEFT=NLEFT+ 1 
GO  TO  8 
CONTINUE 

PRINT  *,  'AT  EOF  FOR  PASS  1  FILE' 

IF(NLEFT.NE.O)  PRINT  *,  'READ  ' ,NLEFT, '  MORE  RECORDS' 


-WRITE  TWO  EOF  MARKERS  ON  TAPE 


CONTINUE 

I RETCODE=SYS$Q I OW ( ,%VAL( ICHAN) , IO$_WRITEOF, IOSBMT, 
I RETCODE=SYS$Q I OW ( , %VAL( ICHAN) , 10$  WRITEOF, IOSBMT, 


CALL  EXIT 
END 


n  n  n  on 


Hi  wiBnnkTii  ■  » if 
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C 

C 


LI STHEAD. FOR 


LISTS  OUT  THE  HEADER  INFORMATION  FOR  A 
SPECIFIED  TAPE. 


- 

C 

HEADB ( 1 -2 ) 

HEADI2! 1 ) 

ANALOG 

TAPE  NUMBER 

C 

HEADB ( 3 ) 

HEAD I 2 ! 2 ) 

PASS  NUMBER  ( 1 , 

2  OR  3) 

C 

HEADB ( 4 ) 

ft 

NUMBER 

OF  CHANNELS  14  OR  24 

C 

HEADB! 5) 

HEAD I 2 { 3 ) 

DIGITIZING  MONTH 

c 

HEADB( 6) 

n 

DIGITIZING  DAY 

c 

HEADB! 7) 

HEAD I 2 ( 4 ) 

DIGITIZING  YEAR 

c 

HEADB! 8) 

ft 

EXPERIMENT  TIME 

CODE  START 

HOUR 

c 

HEADB! 9) 

HEAD I 2 ! 5 ) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

c 

HEADB! 10) 

ft 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

c 

HEADB! 11-30) 

HEAD 12(6-15) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

c 

HEADB! 31 ) 

HEAD I 2 ( 1 6 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

c 

HEADB! 32) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

c 

HEADB! 33) 

HEADI2! 17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

c 

HEADB! 34) 

m 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

c 

HEADB! 35) 

HEADI2! 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

c 

HEADB (36) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

c 

HEADB! 37) 

HEADI2! 19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

c 

HEADB! 38) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

c 

HEADB! 39) 

HEAD I 2 ! 20 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

c 

HEADB (40) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

10 

c 

HEADB! 41 ) 

HEAD I 2 ( 2 1 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

c 

HEADB! 42) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

c 

HEADB! 43) 

HEAD 12(22) 

ANALOG 

CHANNEL 

IN 

POSITION 

13 

c 

HEADB (44) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

c 

HEADB! 45) 

HEAD I 2 ( 23 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

15 

c 

HEADB (46) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

c 

HEADB! 47) 

HEAD 1 2 { 2  4 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

17 

c 

HEADB (48) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

c 

HEADB! 49) 

HEAD I 2(25) 

ANALOG 

CHANNEL 

IN 

POSITION 

19 

c 

HEADB! 50) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

c 

HEADB! 51 ) 

HEAD I 2 ( 26 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

21 

c 

HEADB! 52) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

c 

HEADB! 53) 

HEAD I 2 ( 27 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

c 

HEADB! 54) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

c 

HEADB! 55) 

HEADI2! 28) 

RUN  IDENTIFICATION  NUMBER 

c 

HEADB (56) 

ft 

ft 

c 

c 

c - 

HEADB! 57-60) 

HEADFP! 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC ) 

SUBROUT  I NE  LI STHEAD ( HEADB , HEAD  I  2 , HEAD I  4 ) 


BYTE  HEADB ( 1 ) 

INTEGER* 2  HEADI2(1) 

I NTEGER*4  HEADI4(1) 

PRINT  OUT  THE  ALL  HEADER  INFO 

PRINT  1,  (HEADB! I ) , 1-1 1 , 30) 

1  FORMAT (X,'  ***  EVENT  DESCRIPTION:  ’ ,20A1,'  ***’) 
C 

PRINT  2,  HEAD I  2 ( 1 ) 

2  FORMAT (X/X,'  ANALOG  TAPE  NUMBER:  ’ ,4X,I4) 

C 

PRINT  3,  HEAD I  2(28) 


1-7 
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3  FORMAT ( X , '  RUN  IDENTIFICATION  NUMBER:  ',6X,I2) 


PRINT  4,  HEADB ( 3 ) 
FORMAT ( X , ’ 


PASS  NUMBER:  ' ,7X, II ) 


PRINT  5,  HEADB { 8 )  , HEADB (9) , HEADB (10)  ,  ,  . 

FORMAT (X,'  START  TIME  CODE:  ',12,  :  ,12,  :  ,12) 

PRINT  6,  HEADB ( 5 ) , HEADB ( 6 ) , HEADB ( 7 ) 


FORMAT ( X , ' 
NCHAN* HEADB { 4 ) 


DATE:  ,,I2,'/',I2,'/'I2) 


PR I NT  7 

FORMAT ( X/X , '  POSITION  :  CHANNEL  POSITION  :  CHANNEL’, 

1  X/X,'  -  -  ' 

NHALF*NCHAN/2 
DO  1*1, NHALF 
K3  I  +-NHALF 

PRINT  8,  I  ,  HEADB  (  I  ♦  30  )  ,  K  ,  HEADB  (  K  +  30  )  ,  n, 

FORMAT(X, 4X, 12 , 3X, '  :  ' , 3X , 1 2 , 2X , 5X , 3X , 1 2 , 3X ,  :  ,3X,I2) 

END  DO 

RETURN 

END 
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APPENDIX  J 


READMT . FOR 
ASSMT . FOR 
RBLOCKMT . FOR 
LISTHEAD. FOR 


J-l/J-2 
Reverse  Blank 


no  non  non  non  n  n  nnnnnnn 
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READMT. FOR  READS  A  FOREIGN  MERGED  DIGITIZED  MAGNETIC  TAPE. 

THE  FIRST  RECORD  CONTAINS  HEADER  IDENTIFICATION. 

THE  DATA  IS  GROUPED  IN  RECORDS  OF  1024  PTS  EACH 
FOR  ALL  24  CHANNELS  (1-25,  NO  13).  THE  FINAL  DATA 
IS  WRITTEN  TO  DISK  IN  SEPARATE  FILES  FOR  EACH  CHANNEL 


PARAMETER  NA2DCH=24  ! NUMBER  OF  CHANNELS 

PARAMETER  NSIZE=1024  INUMBER  OF  WORDS/CHANNEL  IN  A  RECORD 

PARAMETER  NDIM-1 4*500*2 

BYTE  FILNAM( 13) , HEADB(NDIM) , BUFFER ( 32768) 

INTEGER* 2  HEAD I  2 (NDIM/2 ) , I 2BUF( NSIZE, 24 ) ,IOSB(4) 

INTEGER *4  I CHAN, CHANNO , RUNNO , HEAD 1 4 ( NDIM/4 ) 

DIMENSION  I FLG ( 2 4 ) , I  SAVE (24) 

EQUIVALENCE  ( HEADB , HEAD 1 2 , HEAD 1 4 ) , ( BUFFER , 1 2BUF ) 

EQUIVALENCE  ( HEAD 14(15) , S AMP_ I NT ) 

NCHAN=NA2DCH  I  NUMBER  OF  CHANNELS 

NWORDS=NCHAN*NS I ZE  INUMBER  OF  1*2  WORDS/BLOCK 

NBYTES=NWORDS*2  INUMBER  OF  BYTES/BLOCK 

- FIND  OUT  WHAT  WE  ARE  RETREI VEING 

PRINT  *,  'ENTER  RUN  IDENTIFICATION  NUMBER' 

READ  *,  RUNNO 

PRINT  *,  'HOW  MANY  CHANNELS  DO  YOU  WANT  TO  SAVE?  ( - 1 =ALL ) ' 

READ  *,  NSAVE 
I F ( NSAVE . EQ . - 1 )  THEN 
NSAVE=24 
N=  1 

DO  1=1,24 
I  SAVE ( I ) =N 
N=N+ 1 

I F ( N . EQ . 1 3 )  N=N+ 1 
END  DO 
ELSE 

PRINT  *,  'ENTER  ANALOG  CHANNEL  NUMBERS' 

READ  *,  ( I SAVE ( I ) , I = 1 , NSAVE ) 

END  IF 

PRINT  *,  'HOW  MANY  RECORDS  DO  YOU  WANT  TO  READ?' 

READ  *,  NRECORDS 

- ASSIGN  THE  MAGTAPE 

I F I LE= 1 

CALL  ASSMT ( I  CHAN , I F I LE  ) 

- READ  IN  THE  HEADER  AND  PRINT  OUT 

CALL  RBLOCKMT ( ICHAN , NPTS , HEAD  I  2 , ISTAT) 

IF( ISTAT.EQ. 2 )  STOP  'AT  EOF' 

IF( ISTAT.EQ. 1 )  STOP  'TAPE  READ  ERROR’ 

IF(NPTS.NE. NDIM/2)  STOP  'WRONG  NUMBER  OF  BYTES  READ  FOR  HEADER' 
CALL  LISTHEAD( HEADB , HEAD  I  2 , HEAD  I  4 ) 

- OPEN  OUTPUT  FILES,  CHANNELS  WILL  SEPERATED  INTO  R _ C _ .DAT 


non  non 
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DO  1=1, NCHAN 

CHANNO=HEADB (30+1) 

IUNIT=1 0+1 
I FLG( I ) =0 
DO  J=1 , NSAVE 

I F ( I SAVE ( J ) .  EQ . CHANNO )  I FLG ( I ) = 1 
END  DO 

I F ( I FLG ( I ) . EQ . 1 )  THEN 

ENCODE ( 1 2 , 1 0 , F I LNAM )  RUNNO, CHANNO 
10  FORMAT* 'R' , 12, 'C' , 12, ' .DAT' ) 

F I LNAM ( 1 3 ) =  0 

OPEN ( UNIT® I UNIT , STATUS* ' NEW ' , FI LE= FI LNAM , FORM® ' UNFORMATTED ' ) 
PRINT  20,  I UN I T , (FI LNAM ( J ) , J  =  1 , 1 2 ) 

20  FORMAT  ( 2X, ' OUTPUT  UNIT®  * , 15 , 2X, ' FILE  '12A1) 

WR I TE ( I UN I T )  RUNNO , CHANNO , NWORDS , NRECORDS , S AMP_ I  NT 
END  IF 
END  DO 

■READ  THE  DATA  IN 
DO  NR® 1 , NRECORDS 

CALL  RBLOCKMT ( I CHAN , NPTS , BUFFER , I STAT ) 

I F ( ISTAT.EQ. 2 )  STOP  'AT  EOF' 

IF( ISTAT.EQ. 1 )  STOP  ’TAPE  READ  ERROR' 

I F ( NPTS . NE . NWORDS )  STOP  'WRONG  NUMBER  OF  1*2  READ  IN' 

DO  1=1, NCHAN 

IF( IFLG( I) .EQ. 1 )  THEN 

I  UNIT® 10  +  1  ! OUTPUT  UNITS  11-35 

WRITE ( I UN IT )  ( I 2BUF ( J , I ) , J* 1 , NS I ZE ) 

END  IF 
END  DO 
END  DO 

CLOSE  THE  FILE 
DO  1=1, NCHAN 

I  UNIT®  1  0-*- 1  10UTPUT  UNITS  11-35 

CLOSE ( I UNIT) 

END  DO 

CALL  EXIT 
END 
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ASSMT . FOR  ASSIGNS  A  CHANNEL  FOR  THE  MAGNETIC  TAPE  DRIVE. 

IT  MUST  BE  EXTERNALLY  ASSIGNED  TO  THE  LOGICAL 
NAME  MAG_TAPE .  THE  TAPE  IS  REWOUND  AND  THE 
REQUESTED  NUMBER  OF  FILES  IS  SKIPPED. 


PARAMETERS : 

I CHAN  =  MAGTAPE  INPUT  CHANNEL  NUMBER 
I  FILE  =  MAGTAPE  INPUT  FILE  NUMBER 


SUBROUT I NE  ASSMT ( I CHAN , I F I LE ) 


EXTERNAL  IO$_REWIND, IO$_SKIPFILE 

INTEGER* 2  IOSB( 4 ) , EOF , EOT 

INTEGER* 4  SYS$ASSIGN, SYS$QIOW, ICHAN, IRET 

EOF= ' 0870 ' X  ! END  OF  FILE 

EOT= ' 0878 ' X  ! END  OF  TAPE 

NORMAL=' 0001 'X  ! NORMAL 

- ASSIGN  THE  9  TRACK  TAPE  DRIVE  "MAG_TAPE"  AND  ASSIGN  THE  CHANNEL 

IRET=SYS$ASSIGN( ' MAG_TAPE ' , ICHAN, , ) 

IF( .NOT. IRET)  STOP  'ASSIGN  ERROR' 

- REWIND  THE  TAPE 

IRET=SYS$QIOW( ,%VAL( ICHAN) , IO$_REWIND, IOSB, ,,,,,,,) 

I F ( .NOT. IRET)  STOP  'REWIND  ERROR' 

I F ( IOSB( 1 ) .NE. NORMAL)  STOP  'REWIND  ERROR’ 

NFILE= 1  ! PRESENT  FILE  NUMBER 

- SKIP  THE  REQUESTED  NUMBER  OF  FILES 

NSKIP= I F I LE- 1  ! NUMBER  OF  FILES  TO  SKIP 

IF(NSKIP.NE.O)  THEN 

IF(NSKIP.LT.O)  NSK I P=NSK I P- 1 

IRET=SYS$QIOW( ,%VAL( ICHAN) , I 0$_SK I PF I LE , IOSB, , ,%VAL(NSKIP) ,,,,,) 
IF( .NOT. IRET)  STOP  'SKIPFILE  ERROR' 

I F ( I OSB ( 1 ) . NE . NORMAL . AND . I OSB ( 1 ) . NE . EOF )  STOP  'SKIPFILE  ERROR' 

I F ( IOSB ( 2 ) . NE . ABS ( NSK IP))  STOP  'SKIPFILE  ERROR' 

NFI LE=NF I LE+NSK I P  .'NEW  FILE  NUMBER 

IF(NSKIP.LT.O)  THEN 

IRET=SYS$QIOW( ,%VAL( ICHAN) , IO$_SK I PF I LE , IOSB, , , %VAL( 1 ),,,,, > 

I  F( .NOT. IRET)  STOP  'SKIPFILE  ERROR' 

I F ( IOSB ( 1 ) . NE . NORMAL . AND . IOSB ( 1 ) . NE . EOF )  STOP  'SKIPFILE  ERROR' 
IF( IOSB( 2 ) .NE. 1 )  STOP  'SKIPFILE  ERROR’ 

NF I LE=NF I LE  + 1  ! NEW  FILE  NUMBER 

END  IF 
END  IF 

I  FI  LE  =  NF  I  LE  .'PRESENT  MAGTAPE  INPUT  FILE  NUMBER 

RETURN 

END 


non  n  n  no  nnnnnnnn 
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RBLOCKMT . FOR  READS  A  BLOCK  OF  DATA  FROM  A  MAGNETIC  TAPE. 

PARAMETERS : 

I CHAN  3  CHANNEL  ASSIGNED  TO  THE  MAG_TAPE  UNIT 
NWORDS  =  NUMBER  OF  1*2  DATA  POINTS  READ 
I2BUF  3  BUFFER  TO  RECEIVE  DATA 
ISTAT  3  RETURN  STATUS  (0=OK,  1 = ERROR ,  2=EOF) 


SUBROUT I NE  RBLOCKMT ( I CHAN , NWORDS , I  2  BUF , I STAT ) 


EXTERNAL  IO$_READLBLK 
INTEGER *4  S YS$Q I OW, ICHAN, IRET 

INTEGER* 2  I2BUF< 1 > , IOSB(4) , NORMAL , EOF , EOT , BUFFER ( 32768) 


EOF= ' 0870 ' X 
EOT= ' 0878 ' X 
NORMAL3 '0001  'X 
I STAT=0 


!  END  OF  FILE 
!  END  OF  TAPE 
!  NORMAL 
!  ASSUME  OK 


READ  IN  ONE  BLOCK  OF  DATA 

I RET=SYS$QIOW ( , %VAL ( ICHAN) , IO$  READLBLK , IOSB, , , 

1  BUFFER, %VAL(65535) ,  ,,,  ) 

C 

I F( .NOT. IRET)  THEN 

PRINT  *,  'IRETURN  CODE  3  ' , IRET 
PRINT  100,  ( IOSB( I ) , 1=1 ,4) 

STOP  'READING  DATA  ERROR' 

END  IF 
C 

NWORDS =0 

CALL  MVBITS ( IOSB(2) , 0 , 1 6 , NWORDS , 0 ) 

NWORDS3 NWORDS/ 2 
I F ( I OSB ( 1 ) . NE . NORMAL )  THEN 
I F ( I OSB ( 1 ) . EQ . EOF )  THEN 
ISTAT3 2 
GO  TO  200 
ENDIF 

I F ( I OSB ( 1 ) . EQ . EOT )  THEN 
PRINT  *,  'EOT  REACHED' 

GO  TO  200 
ENDIF 
C 

ISTAT3 1  ! PROBLEM 

PRINT  *,  'PROBLEM  WITH  MAGTAPE' 

PRINT  100,  ( I OSB ( I ) , 1=1 ,4) 

100  FORMAT (2X,4(Z4.4,2X)  ) 

GO  TO  200 
ENDIF 
C 

200  CONTINUE 

I F( NWORDS. NE.0)  THEN 
DO  1=1, NWORDS 

I 2BUF ( I ) =BUFFER< I ) 

END  DO 
ENDIF 

J-6 
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C  LISTHEAD. FOR  LISTS  OUT  THE  HEADER  INFORMATION  FOR  A 

C  SPECIFIED  TAPE. 


c - 

c 

HEADB ( 1-2) 

HEADI 2 ( 1 ) 

ANALOG 

TAPE  NUMBER 

c 

HEADB ( 3) 

HEADI 2 ( 2 ) 

PASS  NUMBER  ( 1 , 

2  OR  3) 

c 

HEADB ( 4 ) 

ft 

NUMBER 

OF  CHANNELS  14  OR  24 

c 

HEADB ( 5 ) 

HEADI 2(3) 

DIGITIZING  MONTH 

c 

HEADB ( 6 ) 

It 

DIGITIZING  DAY 

c 

HEADB ( 7 ) 

HEADI 2(4) 

DIGITIZING  YEAR 

c 

HEADB { 8 ) 

ft 

EXPERIMENT  TIME 

CODE  START 

HOUR 

c 

HEADB ( 9 ) 

HEADI 2(5) 

EXPERIMENT  TIME 

CODE  START 

MINUTE 

c 

HEADB (10) 

H 

EXPERIMENT  TIME 

CODE  START 

SECONDS 

c 

HEADB ( 11-30) 

HEADI 2(6-15) 

EVENT  NAME  (20 

CHAR  MAXIMUM) 

c 

HEADB (31) 

HEADI 2 ( 16) 

ANALOG 

CHANNEL 

IN 

POSITION 

1 

c 

HEADB ( 32) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

2 

c 

HEADB ( 33) 

HEADI 2 ( 17) 

ANALOG 

CHANNEL 

IN 

POSITION 

3 

c 

HEADB (34) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

4 

c 

HEADB ( 35) 

HEADI 2 ( 18) 

ANALOG 

CHANNEL 

IN 

POSITION 

5 

c 

HEADB ( 36) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

6 

c 

HEADB (37 ) 

HEADI 2 ( 19) 

ANALOG 

CHANNEL 

IN 

POSITION 

7 

c 

HEADB ( 38 ) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

8 

c 

HEADB (39) 

HEADI 2 ( 20 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

9 

c 

HEADB (40) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

10 

c 

HEADB ( 4 1 ) 

HEADI 2(21  ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  1 

c 

HEADB (42) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

12 

c 

HEADB (43) 

HEADI 2 (22) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  3 

c 

HEADB (44) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

14 

c 

HEADB (45) 

HEADI 2 (23) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  5 

c 

HEADB (46) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

16 

c 

HEADB (47) 

HEADI 2 ( 24 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

1  7 

c 

HEADB (48 ) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

18 

c 

HEADB (49) 

HEADI 2(25) 

ANALOG 

CHANNEL 

IN 

POSITION 

19 

c 

HEADB ( 50) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

20 

c 

HEADB ( 51 ) 

HEADI2( 26) 

ANALOG 

CHANNEL 

IN 

POSITION 

21 

c 

HEADB ( 52 ) 

ft 

ANALOG 

CHANNEL 

IN 

POSITION 

22 

c 

HEADB (53) 

HEAD  12(27 ) 

ANALOG 

CHANNEL 

IN 

POSITION 

23 

c 

HEADB ( 54 ) 

ff 

ANALOG 

CHANNEL 

IN 

POSITION 

24 

c 

HEADB (55) 

HEADI 2 ( 28) 

RUN  IDENTIFICATION  NUMBER 

c 

HEADB ( 56 ) 

ft 

It 

c 

c 

c - 

HEADB( 57-60) 

HEADFP ( 15) 

SAMPLE 

RATE  (2. 

5  KHZ= . 0004SEC ) 

c - 

SUBROUTINE  L I STHEAD ( HEADB , HEAD I 2 

t , HEAD  I 4 ) 

C 

BYTE  HEADB ( 1 ) 

INTEGERS  HEAD  I  2  (  1  ) 

INTEGERM  HEAD  I  4  (  1  ) 

C 

C - PRINT  OUT  THE  ALL  HEADER  INFO 

C 

PRINT  1 ,  ( HEADB ( I ) , 1=1 1 , 30) 

1  FORMAT ( X , '  ***  EVENT  DESCRIPTION:  ' ,20A1,'  ***’) 
C 

PRINT  2 ,  HEADI 2 ( 1 ) 

2  FORMAT ( X  'X ,  ANALOG  TAPE  NUM3ER :  ’ ,4X,I4) 

C 

PRINT  3,  HEAD  12(28) 

J-8 
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FORMAT (X, '  RUN  IDENTIFICATION  NUMBER:  ’,6X,l2) 


PRINT  4,  HEADB( 3 ) 
FORMAT ( X , ' 


PASS  NUMBER:  '  ,7X,  H  ) 


PRINT  5,  HEADB ( 8 ) , HEADB ( 9 ) , HEADB (10) 

FORMAT(X,'  START  TIME  CODE:  ' , 1 2 , ' : ’ , 1 2 , ' : ' , 1 2 ) 

PRINT  6,  HEADB (  5 )  , HEADB ( 6 ) , HEADB ( 7 ) 

FORMAT (X,'  DATE:  ,,I2,'/',I2,'/'I2) 

NCHAN=HEADB ( 4 ) 

PRINT  7 

FORMAT { X/X , ’  POSITION  :  CHANNEL  POSITION  :  CHANNEL', 

1  X/X,'  -  - "> 

NHALF=NCHAN/2 
DO  1=1, NHALF 
K= I +NHALF 

PRINT  8,  I  ,  HEADB  {  I  -*-30  )  ,  K ,  HEADB  (K  +  30  ) 

FORMAT  (X,4X,I2,3X,  :  '  ,  3X ,  1 2 , 2X ,  5X ,  3X ,  1 2 , 3X ,  '  :  \3X,I2) 

END  DO 

RETURN 
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_DRB0 : [ MAC I E .  TM  ] SAMPLE . RUN ; 1 
APPENDIX  K  -  SAMPLE  DIGITIZING  SESSION 


Username: 

Password : 

Welcome  to  VAX/VMS  version  V4.1  on  node  V331 
Last  interactive  login  on  Wednesday,  18-JUN-1986  09:20 
Last  non- interact ive  login  on  Monday,  9-JUN-1986  13:19 


$  ALLOC  MFAO: 

%DCL- I -ALLOC ,  MFAO:  allocated 
$  A2D 

DO  YOU  WANT  TO  INITIALIZE  THE  TAPE?  (Y/N)  Y 

ENTER  TAPE  LABEL’  (R _ P_  )  :  RblP-L 

%DCL- I -ALLOC,  MFAO:  allocated 

IS  DATA  GOING  TO  DISK  0  OR  1 ?:  1 

HAVE  YOU  ENTERED  THE  DIGITIZING  SETUP?  (Y/N)  ^ 


ENTER  ANALOG  TAPE  NUMBER:  5 

ENTER  RUN  IDENTIFICATION  NUMBER:  b  l 

ENTER  DATA  TAPE  PASS  NUMBER  (1  OR  2 ) ? 


ENTER 

DIGITIZING 

DATE: 

MONTH 

b 

DAY 

L'| 

YEAR 

S  e 

ENTER 

START  TIME 

CODE: 

HOUR 

b 

L 


M I NUTES  ^  L 


SECONDS 

ENTER  20  CHARACTER  EVENT  DESCRIPTION:  kiN  t  l  C 


ENTER 

ANALOG 

CHANNEL 

FOR 

A/D 

CHANNEL 

i  ; 

L 

ENTER 

ANALOG 

CHANNEL 

FOR 

A,  D 

CHANNEL 

2 

2 

ENTER 

ANALOG 

CHANNEL 

FOR 

A  D 

CHANNEL 

3 

-s 

ENTER 

ANALOG 

CHANNEL 

FOR 

A.  L> 

CHANNEL 

4 

ENTER 

ANALtXI 

CHANNEL 

for 

a  :> 

CHANNEL 

c. 

• 

ENTER 

ANALOG 

CHANNE I 

F-  » 

A  0 

CHANNEL 

b 

L 

ENTER 

ana:/*; 

channe: 

w 

A  '• 

(  hanne: 

- 

t 

/ 

ENTER 

ANALOG 

CHANN1 . 

t-  j 

a  :  - 

channe. 

R 

« 

ENTER 

analog 

(  HANN^.. 

(•’  W 

a  :> 

i HANNE. 

Q 

n 


».V 


s? 


2$ 


•.>>1 


v> 


vSv 

*  .*>  Al 


& 

si 


L|kjt.  W.  J 


TM  No.  861214 

_DRB0: [MAC IE. TM] SAMPLE. RUN; 1 

ENTER  ANALOG  CHANNEL  FOR  A/D  CHANNEL  10 
ENTER  ANALOG  CHANNEL  FOR  A/D  CHANNEL  11 
ENTER  ANALOG  CHANNEL  FOR  A/D  CHANNEL  12 
ENTER  ANALOG  CHANNEL  FOR  A/D  CHANNEL  13 
ENTER  ANALOG  CHANNEL  FOR  A/D  CHANNEL  14 


DATA  WILL  BE  SAVED  IN  FILE:  R61P1H.DAT 


***  EVENT  DESCRIPTION:  RUN  61  PASS  1 

ANALOG  TAPE  NUMBER:  5 

RUN  IDENTIFICATION  NUMBER:  61 

PASS  NUMBER:  1 

START  TIME  CODE:  6:41:30 
DATE:  6/19/86 


POST I ON  :  CHANNEL 


1 


POST I ON  :  CHANNEL 


1 

8 

2 

9 

3 

10 

4 

1  1 

5 

12 

6 

13 

7 

14 

LOOK 

CORRECT? 

DID  YOU  ASSIGN  AND  MOUNT  THE  MAGTAPE?  (Y/N) 

%DCL- I -SUPERSEDE,  previous  value  of  MAG_TAPE  has  been  superseded 
%MOUNT- I -MOUNTED,  R61P1  mounted  on  _MFA0 : 

HOW  MANY  BUFFERS  DO  YOU  WANT  TO  FILL? 

c) 

ENTER  RUN  IDENTIFICATION  NUMBER 
b  J- 

ENTER  PASS  NUMBER  (1  OR  2) 

L 

HEADER  FILE:  R61P1H.DAT 


***  EVENT  DESCRIPTION:  RUN  61  PASS  1  *** 

ANALOG  TAPE  NUMBER:  5 

RUN  IDENTIFICATION  NUMBER:  61 

PASS  NUMBER:  1 

START  TIME  CODE:  6:41:30 
DATE:  6/19/86 


POST  I ON  :  CHANNEL 


POST I ON  :  CHANNEL 
8  :  8 


TM  No.  861214 


DRBO: [MAC IE. TM] SAMPLE. RUN; 1 


2  :  2 

9 

9 

3  :  3 

10 

10 

4  :  4 

1  1 

1  1 

5  :  5 

12 

12 

6  :  6 

13 

14 

7  :  7 

14 

15 

HOW  MANY  FILES  DO 

YOU  WANT  TO 

SKIP? 

05 

START  ANALOG  TAPE, 

HIT  RETURN 

AT 

6:41:30 

END  OF  RUN 

DO  YOU  WANT  TO  COPY  THE  RECAT  FILES  TO  DISK?  (Y/N)  Y 

ENTER  RUN  IDENTIFICATION  NUMBER 
bL 

ENTER  PASS  NUMBER 

L 

PROCESSING  GROUP  1 

HOW  MANY  FILES  DO  YOU  WANT  TO  SKIP? 

***  EVENT  DESCRIPTION:  RUN  61  PASS  1  *** 


ANALOG  TAPE  NUMBER:  5 

RUN  IDENTIFICATION  NUMBER:  61 

PASS  NUMBER:  1 

START  TIME  CODE:  6:41:30 
DATE:  6/19/86 


POST I ON  :  CHANNEL  POST  I ON  :  CHANNEL 


1 

1 

8 

8 

2 

2 

9 

9 

3 

3 

10 

10 

4 

4 

1  1 

1  1 

5 

5 

12 

1  2 

6 

6 

13 

14 

7 

7 

14 

1  5 

OUTPUT 

UNIT 

= 

12 

FILE 

R61P1C  2B.DAT  500 

BUFFERS 

OUTPUT 

UNIT 

= 

14 

FILE 

R61P1C  4 B . DAT  500 

BUFFERS 

OUTPUT 

UNIT 

= 

20 

FILE 

R61P1C10B.DAT  500 

BUFFERS 

OUTPUT 

UNIT 

= 

23 

FILE 

R61P1C13B.DAT  500 

BUFFERS 

OUTPUT 

UNIT 

= 

12 

FILE 

R61P1C  2E.DAT  50 

BUFFERS 

OUTPUT 

UNIT 

= 

14 

FILE 

R61P1C  4E.DAT  50 

BUFFERS 

OUTPUT 

UNIT 

= 

20 

FILE 

R61P1C10E.DAT  50 

BUFFERS 

OUTPUT 

UNIT 

= 

23 

FILE 

R61P1C13E.DAT  50 

BUFFERS 

AT  EOF 

IN 

RECORD 

51 

RECAT  FILES  HAVE  BEEN  SAVED 

DO  YOU  WANT  TO  COPY  QUICK  CHECK  FILES  TO  DISK?  (Y/N): 
ENTER  RUN  IDENTIFICATION  NUMBER 
bL 


ENTER  PASS  NUMBER 
L 


OUTPUT 

UN  I  T  = 

1  1 

FILE 

R61P1C 

1  .DAT 

OUTPUT 

UN  I  T  = 

1  2 

FILE 

R61P1C 

2.  DAT 

OUTPUT 

UNIT* 

1  3 

FILE 

R61P1C 

3  .  DAT 

OUTPUT 

UNIT* 

1  4 

FILE 

R61P1C 

4  .DAT 

OUTPUT 

UNIT* 

15 

FILE 

RbiPIC 

5  .  DAT 

i  •. 

•  ~P  "1 

►  TM  9M  mM  • 

M  *  M  •  m  1 

/A 


K  -  5 


DRBO: [MAC IE. TM] SAMPLE. RUN; 1 


OUTPUT 

UNIT= 

16 

FILE 

R61P1C  6. DAT 

OUTPUT 

UNIT® 

17 

FILE 

R61P1C  7. DAT 

OUTPUT 

UNIT= 

18 

FILE 

R61P1C  8. DAT 

OUTPUT 

UNIT= 

19 

FILE 

R61P1C  9. DAT 

OUTPUT 

UNIT* 

20 

FILE 

R61P1C10.DAT 

OUTPUT 

UNIT* 

21 

FILE 

R61P1C1 1 .DAT 

OUTPUT 

UNIT* 

22 

FILE 

R61P1C12.DAT 

OUTPUT 

UNIT* 

23 

FILE 

R61P1C13.DAT 

OUTPUT 

UNIT* 

24 

FILE 

R61P1C14.DAT 

HOW  MANY  FILES  DO  YOU  WANT  TO  SKIP? 

0 

***  EVENT  DESCRIPTION:  RUN  61  PASS  1 

ANALOG  TAPE  NUMBER:  5 

RUN  IDENTIFICATION  NUMBER:  61 

PASS  NUMBER:  1 

START  TIME  CODE:  6:41:30 
DATE:  6/19/86 


POST I ON 

CHANNEL 

POST I ON 

CHANNEL 

1 

1 

8 

8 

2 

2 

9 

9 

3 

3 

10 

10 

4 

4 

1  1 

1  1 

5 

5 

12 

12 

6 

6 

13 

14 

7 

7 

14 

15 

HOW  MANY  RECORDS  DO  YOU  WANT  TO  READ? 

.5 

YOU  NEED  TO  RUN  DRBO : QUPL . COM  TO  MAKE  PLOTS 
DO  YOU  WANT  TO  DISMOUNT  THE  TAPE?  (Y/N):  y 
DIGITIZING  PROCEDURE  COMPLETE 
$LO 

NOW  GO  TO  A  TEKTRONIX  TERMINAL  AND  PERFORM  THE  FOLLOWING 

Username: 

Password: 

Welcome  to  VAX/VMS  version  V4 . 1  on  node  V 3 3 ? 

Last  interactive  login  on  Wednesday,  18-JUN-1986  i 2 : 3 3 
Last  non- i nteract i ve  login  on  Monday,  9-JUN-1986  ’3:19 

$  QUPL 

RUN  NUMBER?  :  6  1- 

PASS  NUMBER?  : 

ARE  YOU  RUNNING  ON  THE  TEXTRON  ICS  ?  (Y/N):  V 


PLOTTING  COMPLETE 
$  DEL  R61P1 * .DAT; * 


It  is  very  common  to  get  tape/system  errors  when  digitizing  data. 
The  digitizing  program  will  print  out  error  messages  in  the  form: 


PROBLEM  WRITING  TO  TAPE,  IOSB  8C  0  5C0  0 
RECORD  5854  BUFFER  NUMBER  2 
ERROR  FROM  LPA$IWTBUF  -  IBUFNO  -1  REC  5856 
IOSB  (HEX)  334  0  A3C0  EFD8 

The  first  "IOSB"  code,  8C  is  the  error  condition  you  should  be 
concerned  with.  Here  are  a  few  common  errors  and  actions  to  be 
taken.  Please  refer  to  the  Digital  Equipment  reference  manuals 
for  more  detail. 

CODE  ERROR  CODE  MEANING  ACTION  TO  BE  TAKEN 


334 


SS$_DEVREQERR  The  program  could  not 
perform  it's  function 
in  a  timely  manner. 

When  you  needed  control 
someone  else  had  it. 


Try  you  run  over. 

If  the  system  is 
very  busy  and  334 
keeps  occuring  in  a 
short  period  of  time, 
QUIT,  GO  HOME! ! ! 

TRY  AGAIN  LATER. 


8C  SS$  DRVERR 


1  A4  SS$  MEDOFL 


1 F 4  SS$  PARITY 


Magtape  drive  error. 
This  program  inhibits 
all  tape  correction 
retries. 


Tape  drive  is  offline 


Tape  parity  error. 


Set  tape  aside  and  mark 
with  record  number. 

Use  a  new  tape.  RERUN. 
The  tape  is  good  for 
other  applications. 

Go  press  the  "ON  LINE" 
button  on  digital  drive 
in  the  computer  room. 

Set  tape  aside  and  mark 
Use  a  new  tape.  RERUN. 
Tape  may  not  be  good. 


Please  note  when  digitizing  it  is  critical  that  all  things  run  in  a 
smooth  timely  manner.  Because  all  tape  retries  are  inhibited  and 
because  you  are  usually  sharing  the  system  with  other  users,  it  is 
very  common  to  have  errors  occur.  Unfortunately,  when  digitizing 
the  user  cannot  not  tolerate  any  problems  and  a  session  must  be 
restarted.  Please  ex,  :ct  this.  In  order  to  minimize  problems, 
it  is  best  to  run  when  the  system  is  not  busy. 
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